<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><html xmlns="http://www.w3.org/1999/xhtml"><head><link rel="stylesheet" type="text/css" href="style.css" /><script type="text/javascript" src="highlight.js"></script></head><body><pre><span class="hs-pragma">{-# OPTIONS -fno-warn-orphans #-}</span><span>
</span><span id="line-2"></span><span class="hs-keyword">module</span><span> </span><span class="hs-identifier">Data.Time.Format.Parse.Instances</span><span class="hs-special">(</span><span class="hs-special">)</span><span> </span><span class="hs-keyword">where</span><span class="hs-cpp">

#if !MIN_VERSION_base(4,8,0)
</span><span class="hs-keyword">import</span><span> </span><span class="hs-identifier">Control.Applicative</span><span> </span><span class="hs-special">(</span><span class="hs-special">(</span><span class="hs-operator">&lt;$&gt;</span><span class="hs-special">)</span><span class="hs-special">,</span><span class="hs-special">(</span><span class="hs-operator">&lt;*&gt;</span><span class="hs-special">)</span><span class="hs-special">)</span><span class="hs-cpp">
#endif
</span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="../../base/src/Data.Char.html#"><span class="hs-identifier">Data.Char</span></a></span><span>
</span><span id="line-8"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="../../base/src/Data.Fixed.html#"><span class="hs-identifier">Data.Fixed</span></a></span><span>
</span><span id="line-9"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="../../base/src/Data.List.html#"><span class="hs-identifier">Data.List</span></a></span><span>
</span><span id="line-10"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="../../base/src/Data.Ratio.html#"><span class="hs-identifier">Data.Ratio</span></a></span><span>
</span><span id="line-11"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="../../base/src/Data.Traversable.html#"><span class="hs-identifier">Data.Traversable</span></a></span><span>
</span><span id="line-12"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="../../base/src/Text.Read.html#"><span class="hs-identifier">Text.Read</span></a></span><span class="hs-special">(</span><span class="annot"><a href="../../base/src/Text.Read.html#readMaybe"><span class="hs-identifier">readMaybe</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-13"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="Data.Time.Clock.Internal.DiffTime.html"><span class="hs-identifier">Data.Time.Clock.Internal.DiffTime</span></a></span><span>
</span><span id="line-14"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="Data.Time.Clock.Internal.NominalDiffTime.html"><span class="hs-identifier">Data.Time.Clock.Internal.NominalDiffTime</span></a></span><span>
</span><span id="line-15"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="Data.Time.Clock.Internal.UniversalTime.html"><span class="hs-identifier">Data.Time.Clock.Internal.UniversalTime</span></a></span><span>
</span><span id="line-16"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="Data.Time.Clock.POSIX.html"><span class="hs-identifier">Data.Time.Clock.POSIX</span></a></span><span>
</span><span id="line-17"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="Data.Time.Clock.Internal.UTCTime.html"><span class="hs-identifier">Data.Time.Clock.Internal.UTCTime</span></a></span><span>
</span><span id="line-18"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="Data.Time.Calendar.Days.html"><span class="hs-identifier">Data.Time.Calendar.Days</span></a></span><span>
</span><span id="line-19"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="Data.Time.Calendar.Gregorian.html"><span class="hs-identifier">Data.Time.Calendar.Gregorian</span></a></span><span>
</span><span id="line-20"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="Data.Time.Calendar.CalendarDiffDays.html"><span class="hs-identifier">Data.Time.Calendar.CalendarDiffDays</span></a></span><span>
</span><span id="line-21"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="Data.Time.Calendar.OrdinalDate.html"><span class="hs-identifier">Data.Time.Calendar.OrdinalDate</span></a></span><span>
</span><span id="line-22"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="Data.Time.Calendar.WeekDate.html"><span class="hs-identifier">Data.Time.Calendar.WeekDate</span></a></span><span>
</span><span id="line-23"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="Data.Time.Calendar.Private.html"><span class="hs-identifier">Data.Time.Calendar.Private</span></a></span><span class="hs-special">(</span><span class="annot"><a href="Data.Time.Calendar.Private.html#clipValid"><span class="hs-identifier">clipValid</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-24"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="Data.Time.LocalTime.Internal.CalendarDiffTime.html"><span class="hs-identifier">Data.Time.LocalTime.Internal.CalendarDiffTime</span></a></span><span>
</span><span id="line-25"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="Data.Time.LocalTime.Internal.TimeZone.html"><span class="hs-identifier">Data.Time.LocalTime.Internal.TimeZone</span></a></span><span>
</span><span id="line-26"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="Data.Time.LocalTime.Internal.TimeOfDay.html"><span class="hs-identifier">Data.Time.LocalTime.Internal.TimeOfDay</span></a></span><span>
</span><span id="line-27"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="Data.Time.LocalTime.Internal.LocalTime.html"><span class="hs-identifier">Data.Time.LocalTime.Internal.LocalTime</span></a></span><span>
</span><span id="line-28"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="Data.Time.LocalTime.Internal.ZonedTime.html"><span class="hs-identifier">Data.Time.LocalTime.Internal.ZonedTime</span></a></span><span>
</span><span id="line-29"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="Data.Time.Format.Locale.html"><span class="hs-identifier">Data.Time.Format.Locale</span></a></span><span>
</span><span id="line-30"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="Data.Time.Format.Parse.Class.html"><span class="hs-identifier">Data.Time.Format.Parse.Class</span></a></span><span>
</span><span id="line-31"></span><span>
</span><span id="line-32"></span><span class="hs-keyword">data</span><span> </span><span id="DayComponent"><span class="annot"><a href="Data.Time.Format.Parse.Instances.html#DayComponent"><span class="hs-identifier hs-var">DayComponent</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span id="Century"><span class="annot"><a href="Data.Time.Format.Parse.Instances.html#Century"><span class="hs-identifier hs-var">Century</span></a></span></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Integer</span></span><span> </span><span class="hs-comment">-- century of all years</span><span>
</span><span id="line-33"></span><span>                  </span><span class="hs-glyph">|</span><span> </span><span id="CenturyYear"><span class="annot"><a href="Data.Time.Format.Parse.Instances.html#CenturyYear"><span class="hs-identifier hs-var">CenturyYear</span></a></span></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Integer</span></span><span> </span><span class="hs-comment">-- 0-99, last two digits of both real years and week years</span><span>
</span><span id="line-34"></span><span>                  </span><span class="hs-glyph">|</span><span> </span><span id="YearMonth"><span class="annot"><a href="Data.Time.Format.Parse.Instances.html#YearMonth"><span class="hs-identifier hs-var">YearMonth</span></a></span></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Int</span></span><span> </span><span class="hs-comment">-- 1-12</span><span>
</span><span id="line-35"></span><span>                  </span><span class="hs-glyph">|</span><span> </span><span id="MonthDay"><span class="annot"><a href="Data.Time.Format.Parse.Instances.html#MonthDay"><span class="hs-identifier hs-var">MonthDay</span></a></span></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Int</span></span><span> </span><span class="hs-comment">-- 1-31</span><span>
</span><span id="line-36"></span><span>                  </span><span class="hs-glyph">|</span><span> </span><span id="YearDay"><span class="annot"><a href="Data.Time.Format.Parse.Instances.html#YearDay"><span class="hs-identifier hs-var">YearDay</span></a></span></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Int</span></span><span> </span><span class="hs-comment">-- 1-366</span><span>
</span><span id="line-37"></span><span>                  </span><span class="hs-glyph">|</span><span> </span><span id="WeekDay"><span class="annot"><a href="Data.Time.Format.Parse.Instances.html#WeekDay"><span class="hs-identifier hs-var">WeekDay</span></a></span></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Int</span></span><span> </span><span class="hs-comment">-- 1-7 (mon-sun)</span><span>
</span><span id="line-38"></span><span>                  </span><span class="hs-glyph">|</span><span> </span><span id="YearWeek"><span class="annot"><a href="Data.Time.Format.Parse.Instances.html#YearWeek"><span class="hs-identifier hs-var">YearWeek</span></a></span></span><span> </span><span class="annot"><a href="Data.Time.Format.Parse.Instances.html#WeekType"><span class="hs-identifier hs-type">WeekType</span></a></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Int</span></span><span> </span><span class="hs-comment">-- 1-53 or 0-53</span><span>
</span><span id="line-39"></span><span>
</span><span id="line-40"></span><span class="hs-keyword">data</span><span> </span><span id="WeekType"><span class="annot"><a href="Data.Time.Format.Parse.Instances.html#WeekType"><span class="hs-identifier hs-var">WeekType</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span id="ISOWeek"><span class="annot"><a href="Data.Time.Format.Parse.Instances.html#ISOWeek"><span class="hs-identifier hs-var">ISOWeek</span></a></span></span><span> </span><span class="hs-glyph">|</span><span> </span><span id="SundayWeek"><span class="annot"><a href="Data.Time.Format.Parse.Instances.html#SundayWeek"><span class="hs-identifier hs-var">SundayWeek</span></a></span></span><span> </span><span class="hs-glyph">|</span><span> </span><span id="MondayWeek"><span class="annot"><a href="Data.Time.Format.Parse.Instances.html#MondayWeek"><span class="hs-identifier hs-var">MondayWeek</span></a></span></span><span>
</span><span id="line-41"></span><span>
</span><span id="line-42"></span><span class="hs-keyword">instance</span><span> </span><span class="annot"><a href="Data.Time.Format.Parse.Class.html#ParseTime"><span class="hs-identifier hs-type">ParseTime</span></a></span><span> </span><span class="annot"><a href="Data.Time.Calendar.Days.html#Day"><span class="hs-identifier hs-type">Day</span></a></span><span> </span><span class="hs-keyword">where</span><span>
</span><span id="line-43"></span><span>    </span><span id="local-6989586621679073605"><span class="annot"><span class="annottext">substituteTimeSpecifier :: forall (proxy :: * -&gt; *).
proxy Day -&gt; TimeLocale -&gt; Char -&gt; Maybe [Char]
</span><a href="Data.Time.Format.Parse.Class.html#substituteTimeSpecifier"><span class="hs-identifier hs-var hs-var hs-var hs-var">substituteTimeSpecifier</span></a></span></span><span> </span><span class="annot"><span class="annottext">proxy Day
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">TimeLocale -&gt; Char -&gt; Maybe [Char]
</span><a href="Data.Time.Format.Parse.Class.html#timeSubstituteTimeSpecifier"><span class="hs-identifier hs-var">timeSubstituteTimeSpecifier</span></a></span><span>
</span><span id="line-44"></span><span>    </span><span id="local-6989586621679073602"><span class="annot"><span class="annottext">parseTimeSpecifier :: forall (proxy :: * -&gt; *).
proxy Day
-&gt; TimeLocale -&gt; Maybe ParseNumericPadding -&gt; Char -&gt; ReadP [Char]
</span><a href="Data.Time.Format.Parse.Class.html#parseTimeSpecifier"><span class="hs-identifier hs-var hs-var hs-var hs-var">parseTimeSpecifier</span></a></span></span><span> </span><span class="annot"><span class="annottext">proxy Day
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">TimeLocale -&gt; Maybe ParseNumericPadding -&gt; Char -&gt; ReadP [Char]
</span><a href="Data.Time.Format.Parse.Class.html#timeParseTimeSpecifier"><span class="hs-identifier hs-var">timeParseTimeSpecifier</span></a></span><span>
</span><span id="line-45"></span><span>    </span><span id="local-6989586621679073485"><span class="annot"><span class="annottext">buildTime :: TimeLocale -&gt; [(Char, [Char])] -&gt; Maybe Day
</span><a href="Data.Time.Format.Parse.Class.html#buildTime"><span class="hs-identifier hs-var hs-var hs-var hs-var">buildTime</span></a></span></span><span> </span><span id="local-6989586621679073483"><span class="annot"><span class="annottext">TimeLocale
</span><a href="#local-6989586621679073483"><span class="hs-identifier hs-var">l</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">let</span><span>
</span><span id="line-46"></span><span>
</span><span id="line-47"></span><span>        </span><span class="hs-comment">-- 'Nothing' indicates a parse failure,</span><span>
</span><span id="line-48"></span><span>        </span><span class="hs-comment">-- while 'Just []' means no information</span><span>
</span><span id="line-49"></span><span>        </span><span class="annot"><a href="#local-6989586621679073482"><span class="hs-identifier hs-type">f</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Char</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="../../base/src/GHC.Base.html#String"><span class="hs-identifier hs-type">String</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="../../base/src/GHC.Maybe.html#Maybe"><span class="hs-identifier hs-type">Maybe</span></a></span><span> </span><span class="hs-special">[</span><span class="annot"><a href="Data.Time.Format.Parse.Instances.html#DayComponent"><span class="hs-identifier hs-type">DayComponent</span></a></span><span class="hs-special">]</span><span>
</span><span id="line-50"></span><span>        </span><span id="local-6989586621679073482"><span class="annot"><span class="annottext">f :: Char -&gt; [Char] -&gt; Maybe [DayComponent]
</span><a href="#local-6989586621679073482"><span class="hs-identifier hs-var hs-var">f</span></a></span></span><span> </span><span id="local-6989586621679073481"><span class="annot"><span class="annottext">Char
</span><a href="#local-6989586621679073481"><span class="hs-identifier hs-var">c</span></a></span></span><span> </span><span id="local-6989586621679073480"><span class="annot"><span class="annottext">[Char]
</span><a href="#local-6989586621679073480"><span class="hs-identifier hs-var">x</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">let</span><span>
</span><span id="line-51"></span><span>            </span><span id="local-6989586621679073823"><span class="annot"><a href="#local-6989586621679073479"><span class="hs-identifier hs-type">ra</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">(</span><span class="annot"><a href="../../base/src/GHC.Read.html#Read"><span class="hs-identifier hs-type">Read</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679073823"><span class="hs-identifier hs-type">a</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=&gt;</span><span> </span><span class="annot"><a href="../../base/src/GHC.Maybe.html#Maybe"><span class="hs-identifier hs-type">Maybe</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679073823"><span class="hs-identifier hs-type">a</span></a></span></span><span>
</span><span id="line-52"></span><span>            </span><span id="local-6989586621679073479"><span class="annot"><span class="annottext">ra :: forall a. Read a =&gt; Maybe a
</span><a href="#local-6989586621679073479"><span class="hs-identifier hs-var hs-var">ra</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">[Char] -&gt; Maybe a
forall a. Read a =&gt; [Char] -&gt; Maybe a
</span><a href="../../base/src/Text.Read.html#readMaybe"><span class="hs-identifier hs-var">readMaybe</span></a></span><span> </span><span class="annot"><span class="annottext">[Char]
</span><a href="#local-6989586621679073480"><span class="hs-identifier hs-var">x</span></a></span><span>
</span><span id="line-53"></span><span>
</span><span id="line-54"></span><span>            </span><span class="annot"><a href="#local-6989586621679073476"><span class="hs-identifier hs-type">zeroBasedListIndex</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">[</span><span class="annot"><a href="../../base/src/GHC.Base.html#String"><span class="hs-identifier hs-type">String</span></a></span><span class="hs-special">]</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="../../base/src/GHC.Maybe.html#Maybe"><span class="hs-identifier hs-type">Maybe</span></a></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Int</span></span><span>
</span><span id="line-55"></span><span>            </span><span id="local-6989586621679073476"><span class="annot"><span class="annottext">zeroBasedListIndex :: [[Char]] -&gt; Maybe Int
</span><a href="#local-6989586621679073476"><span class="hs-identifier hs-var hs-var">zeroBasedListIndex</span></a></span></span><span> </span><span id="local-6989586621679073475"><span class="annot"><span class="annottext">[[Char]]
</span><a href="#local-6989586621679073475"><span class="hs-identifier hs-var">ss</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">[Char] -&gt; [[Char]] -&gt; Maybe Int
forall a. Eq a =&gt; a -&gt; [a] -&gt; Maybe Int
</span><a href="../../base/src/Data.OldList.html#elemIndex"><span class="hs-identifier hs-var">elemIndex</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">(Char -&gt; Char) -&gt; [Char] -&gt; [Char]
forall a b. (a -&gt; b) -&gt; [a] -&gt; [b]
</span><a href="../../base/src/GHC.Base.html#map"><span class="hs-identifier hs-var">map</span></a></span><span> </span><span class="annot"><span class="annottext">Char -&gt; Char
</span><a href="../../base/src/GHC.Unicode.html#toUpper"><span class="hs-identifier hs-var">toUpper</span></a></span><span> </span><span class="annot"><span class="annottext">[Char]
</span><a href="#local-6989586621679073480"><span class="hs-identifier hs-var">x</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">([[Char]] -&gt; Maybe Int) -&gt; [[Char]] -&gt; Maybe Int
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">([Char] -&gt; [Char]) -&gt; [[Char]] -&gt; [[Char]]
forall (f :: * -&gt; *) a b. Functor f =&gt; (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="../../base/src/GHC.Base.html#fmap"><span class="hs-identifier hs-var">fmap</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">(Char -&gt; Char) -&gt; [Char] -&gt; [Char]
forall a b. (a -&gt; b) -&gt; [a] -&gt; [b]
</span><a href="../../base/src/GHC.Base.html#map"><span class="hs-identifier hs-var">map</span></a></span><span> </span><span class="annot"><span class="annottext">Char -&gt; Char
</span><a href="../../base/src/GHC.Unicode.html#toUpper"><span class="hs-identifier hs-var">toUpper</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">[[Char]]
</span><a href="#local-6989586621679073475"><span class="hs-identifier hs-var">ss</span></a></span><span>
</span><span id="line-56"></span><span>
</span><span id="line-57"></span><span>            </span><span class="annot"><a href="#local-6989586621679073472"><span class="hs-identifier hs-type">oneBasedListIndex</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">[</span><span class="annot"><a href="../../base/src/GHC.Base.html#String"><span class="hs-identifier hs-type">String</span></a></span><span class="hs-special">]</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="../../base/src/GHC.Maybe.html#Maybe"><span class="hs-identifier hs-type">Maybe</span></a></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Int</span></span><span>
</span><span id="line-58"></span><span>            </span><span id="local-6989586621679073472"><span class="annot"><span class="annottext">oneBasedListIndex :: [[Char]] -&gt; Maybe Int
</span><a href="#local-6989586621679073472"><span class="hs-identifier hs-var hs-var">oneBasedListIndex</span></a></span></span><span> </span><span id="local-6989586621679073471"><span class="annot"><span class="annottext">[[Char]]
</span><a href="#local-6989586621679073471"><span class="hs-identifier hs-var">ss</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">do</span><span>
</span><span id="line-59"></span><span>                </span><span id="local-6989586621679073470"><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679073470"><span class="hs-identifier hs-var">index</span></a></span></span><span> </span><span class="hs-glyph">&lt;-</span><span> </span><span class="annot"><span class="annottext">[[Char]] -&gt; Maybe Int
</span><a href="#local-6989586621679073476"><span class="hs-identifier hs-var">zeroBasedListIndex</span></a></span><span> </span><span class="annot"><span class="annottext">[[Char]]
</span><a href="#local-6989586621679073471"><span class="hs-identifier hs-var">ss</span></a></span><span>
</span><span id="line-60"></span><span>                </span><span class="annot"><span class="annottext">Int -&gt; Maybe Int
forall (m :: * -&gt; *) a. Monad m =&gt; a -&gt; m a
</span><a href="../../base/src/GHC.Base.html#return"><span class="hs-identifier hs-var">return</span></a></span><span> </span><span class="annot"><span class="annottext">(Int -&gt; Maybe Int) -&gt; Int -&gt; Maybe Int
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">1</span></span><span> </span><span class="annot"><span class="annottext">Int -&gt; Int -&gt; Int
forall a. Num a =&gt; a -&gt; a -&gt; a
</span><a href="../../base/src/GHC.Num.html#%2B"><span class="hs-operator hs-var">+</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679073470"><span class="hs-identifier hs-var">index</span></a></span><span>
</span><span id="line-61"></span><span>
</span><span id="line-62"></span><span>            </span><span class="hs-keyword">in</span><span> </span><span class="hs-keyword">case</span><span> </span><span class="annot"><span class="annottext">Char
</span><a href="#local-6989586621679073481"><span class="hs-identifier hs-var">c</span></a></span><span> </span><span class="hs-keyword">of</span><span>
</span><span id="line-63"></span><span>            </span><span class="hs-comment">-- %C: century (all but the last two digits of the year), 00 - 99</span><span>
</span><span id="line-64"></span><span>            </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'C'</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-keyword">do</span><span>
</span><span id="line-65"></span><span>                </span><span id="local-6989586621679073468"><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621679073468"><span class="hs-identifier hs-var">a</span></a></span></span><span> </span><span class="hs-glyph">&lt;-</span><span> </span><span class="annot"><span class="annottext">Maybe Integer
forall a. Read a =&gt; Maybe a
</span><a href="#local-6989586621679073479"><span class="hs-identifier hs-var">ra</span></a></span><span>
</span><span id="line-66"></span><span>                </span><span class="annot"><span class="annottext">[DayComponent] -&gt; Maybe [DayComponent]
forall (m :: * -&gt; *) a. Monad m =&gt; a -&gt; m a
</span><a href="../../base/src/GHC.Base.html#return"><span class="hs-identifier hs-var">return</span></a></span><span> </span><span class="hs-special">[</span><span class="annot"><span class="annottext">Integer -&gt; DayComponent
</span><a href="Data.Time.Format.Parse.Instances.html#Century"><span class="hs-identifier hs-var">Century</span></a></span><span> </span><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621679073468"><span class="hs-identifier hs-var">a</span></a></span><span class="hs-special">]</span><span>
</span><span id="line-67"></span><span>            </span><span class="hs-comment">-- %f century (all but the last two digits of the year), 00 - 99</span><span>
</span><span id="line-68"></span><span>            </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'f'</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-keyword">do</span><span>
</span><span id="line-69"></span><span>                </span><span id="local-6989586621679073467"><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621679073467"><span class="hs-identifier hs-var">a</span></a></span></span><span> </span><span class="hs-glyph">&lt;-</span><span> </span><span class="annot"><span class="annottext">Maybe Integer
forall a. Read a =&gt; Maybe a
</span><a href="#local-6989586621679073479"><span class="hs-identifier hs-var">ra</span></a></span><span>
</span><span id="line-70"></span><span>                </span><span class="annot"><span class="annottext">[DayComponent] -&gt; Maybe [DayComponent]
forall (m :: * -&gt; *) a. Monad m =&gt; a -&gt; m a
</span><a href="../../base/src/GHC.Base.html#return"><span class="hs-identifier hs-var">return</span></a></span><span> </span><span class="hs-special">[</span><span class="annot"><span class="annottext">Integer -&gt; DayComponent
</span><a href="Data.Time.Format.Parse.Instances.html#Century"><span class="hs-identifier hs-var">Century</span></a></span><span> </span><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621679073467"><span class="hs-identifier hs-var">a</span></a></span><span class="hs-special">]</span><span>
</span><span id="line-71"></span><span>            </span><span class="hs-comment">-- %Y: year</span><span>
</span><span id="line-72"></span><span>            </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'Y'</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-keyword">do</span><span>
</span><span id="line-73"></span><span>                </span><span id="local-6989586621679073466"><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621679073466"><span class="hs-identifier hs-var">a</span></a></span></span><span> </span><span class="hs-glyph">&lt;-</span><span> </span><span class="annot"><span class="annottext">Maybe Integer
forall a. Read a =&gt; Maybe a
</span><a href="#local-6989586621679073479"><span class="hs-identifier hs-var">ra</span></a></span><span>
</span><span id="line-74"></span><span>                </span><span class="annot"><span class="annottext">[DayComponent] -&gt; Maybe [DayComponent]
forall (m :: * -&gt; *) a. Monad m =&gt; a -&gt; m a
</span><a href="../../base/src/GHC.Base.html#return"><span class="hs-identifier hs-var">return</span></a></span><span> </span><span class="hs-special">[</span><span class="annot"><span class="annottext">Integer -&gt; DayComponent
</span><a href="Data.Time.Format.Parse.Instances.html#Century"><span class="hs-identifier hs-var">Century</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621679073466"><span class="hs-identifier hs-var">a</span></a></span><span> </span><span class="annot"><span class="annottext">Integer -&gt; Integer -&gt; Integer
forall a. Integral a =&gt; a -&gt; a -&gt; a
</span><a href="../../base/src/GHC.Real.html#div"><span class="hs-operator hs-var">`div`</span></a></span><span> </span><span class="annot"><span class="annottext">Integer
</span><span class="hs-number">100</span></span><span class="hs-special">)</span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">Integer -&gt; DayComponent
</span><a href="Data.Time.Format.Parse.Instances.html#CenturyYear"><span class="hs-identifier hs-var">CenturyYear</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621679073466"><span class="hs-identifier hs-var">a</span></a></span><span> </span><span class="annot"><span class="annottext">Integer -&gt; Integer -&gt; Integer
forall a. Integral a =&gt; a -&gt; a -&gt; a
</span><a href="../../base/src/GHC.Real.html#mod"><span class="hs-operator hs-var">`mod`</span></a></span><span> </span><span class="annot"><span class="annottext">Integer
</span><span class="hs-number">100</span></span><span class="hs-special">)</span><span class="hs-special">]</span><span>
</span><span id="line-75"></span><span>            </span><span class="hs-comment">-- %G: year for Week Date format</span><span>
</span><span id="line-76"></span><span>            </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'G'</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-keyword">do</span><span>
</span><span id="line-77"></span><span>                </span><span id="local-6989586621679073463"><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621679073463"><span class="hs-identifier hs-var">a</span></a></span></span><span> </span><span class="hs-glyph">&lt;-</span><span> </span><span class="annot"><span class="annottext">Maybe Integer
forall a. Read a =&gt; Maybe a
</span><a href="#local-6989586621679073479"><span class="hs-identifier hs-var">ra</span></a></span><span>
</span><span id="line-78"></span><span>                </span><span class="annot"><span class="annottext">[DayComponent] -&gt; Maybe [DayComponent]
forall (m :: * -&gt; *) a. Monad m =&gt; a -&gt; m a
</span><a href="../../base/src/GHC.Base.html#return"><span class="hs-identifier hs-var">return</span></a></span><span> </span><span class="hs-special">[</span><span class="annot"><span class="annottext">Integer -&gt; DayComponent
</span><a href="Data.Time.Format.Parse.Instances.html#Century"><span class="hs-identifier hs-var">Century</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621679073463"><span class="hs-identifier hs-var">a</span></a></span><span> </span><span class="annot"><span class="annottext">Integer -&gt; Integer -&gt; Integer
forall a. Integral a =&gt; a -&gt; a -&gt; a
</span><a href="../../base/src/GHC.Real.html#div"><span class="hs-operator hs-var">`div`</span></a></span><span> </span><span class="annot"><span class="annottext">Integer
</span><span class="hs-number">100</span></span><span class="hs-special">)</span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">Integer -&gt; DayComponent
</span><a href="Data.Time.Format.Parse.Instances.html#CenturyYear"><span class="hs-identifier hs-var">CenturyYear</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621679073463"><span class="hs-identifier hs-var">a</span></a></span><span> </span><span class="annot"><span class="annottext">Integer -&gt; Integer -&gt; Integer
forall a. Integral a =&gt; a -&gt; a -&gt; a
</span><a href="../../base/src/GHC.Real.html#mod"><span class="hs-operator hs-var">`mod`</span></a></span><span> </span><span class="annot"><span class="annottext">Integer
</span><span class="hs-number">100</span></span><span class="hs-special">)</span><span class="hs-special">]</span><span>
</span><span id="line-79"></span><span>            </span><span class="hs-comment">-- %y: last two digits of year, 00 - 99</span><span>
</span><span id="line-80"></span><span>            </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'y'</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-keyword">do</span><span>
</span><span id="line-81"></span><span>                </span><span id="local-6989586621679073462"><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621679073462"><span class="hs-identifier hs-var">a</span></a></span></span><span> </span><span class="hs-glyph">&lt;-</span><span> </span><span class="annot"><span class="annottext">Maybe Integer
forall a. Read a =&gt; Maybe a
</span><a href="#local-6989586621679073479"><span class="hs-identifier hs-var">ra</span></a></span><span>
</span><span id="line-82"></span><span>                </span><span class="annot"><span class="annottext">[DayComponent] -&gt; Maybe [DayComponent]
forall (m :: * -&gt; *) a. Monad m =&gt; a -&gt; m a
</span><a href="../../base/src/GHC.Base.html#return"><span class="hs-identifier hs-var">return</span></a></span><span> </span><span class="hs-special">[</span><span class="annot"><span class="annottext">Integer -&gt; DayComponent
</span><a href="Data.Time.Format.Parse.Instances.html#CenturyYear"><span class="hs-identifier hs-var">CenturyYear</span></a></span><span> </span><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621679073462"><span class="hs-identifier hs-var">a</span></a></span><span class="hs-special">]</span><span>
</span><span id="line-83"></span><span>            </span><span class="hs-comment">-- %g: last two digits of year for Week Date format, 00 - 99</span><span>
</span><span id="line-84"></span><span>            </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'g'</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-keyword">do</span><span>
</span><span id="line-85"></span><span>                </span><span id="local-6989586621679073461"><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621679073461"><span class="hs-identifier hs-var">a</span></a></span></span><span> </span><span class="hs-glyph">&lt;-</span><span> </span><span class="annot"><span class="annottext">Maybe Integer
forall a. Read a =&gt; Maybe a
</span><a href="#local-6989586621679073479"><span class="hs-identifier hs-var">ra</span></a></span><span>
</span><span id="line-86"></span><span>                </span><span class="annot"><span class="annottext">[DayComponent] -&gt; Maybe [DayComponent]
forall (m :: * -&gt; *) a. Monad m =&gt; a -&gt; m a
</span><a href="../../base/src/GHC.Base.html#return"><span class="hs-identifier hs-var">return</span></a></span><span> </span><span class="hs-special">[</span><span class="annot"><span class="annottext">Integer -&gt; DayComponent
</span><a href="Data.Time.Format.Parse.Instances.html#CenturyYear"><span class="hs-identifier hs-var">CenturyYear</span></a></span><span> </span><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621679073461"><span class="hs-identifier hs-var">a</span></a></span><span class="hs-special">]</span><span>
</span><span id="line-87"></span><span>            </span><span class="hs-comment">-- %B: month name, long form (fst from months locale), January - December</span><span>
</span><span id="line-88"></span><span>            </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'B'</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-keyword">do</span><span>
</span><span id="line-89"></span><span>                </span><span id="local-6989586621679073460"><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679073460"><span class="hs-identifier hs-var">a</span></a></span></span><span> </span><span class="hs-glyph">&lt;-</span><span> </span><span class="annot"><span class="annottext">[[Char]] -&gt; Maybe Int
</span><a href="#local-6989586621679073472"><span class="hs-identifier hs-var">oneBasedListIndex</span></a></span><span> </span><span class="annot"><span class="annottext">([[Char]] -&gt; Maybe Int) -&gt; [[Char]] -&gt; Maybe Int
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">(([Char], [Char]) -&gt; [Char]) -&gt; [([Char], [Char])] -&gt; [[Char]]
forall (f :: * -&gt; *) a b. Functor f =&gt; (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="../../base/src/GHC.Base.html#fmap"><span class="hs-identifier hs-var">fmap</span></a></span><span> </span><span class="annot"><span class="annottext">([Char], [Char]) -&gt; [Char]
forall a b. (a, b) -&gt; a
</span><a href="../../base/src/Data.Tuple.html#fst"><span class="hs-identifier hs-var">fst</span></a></span><span> </span><span class="annot"><span class="annottext">([([Char], [Char])] -&gt; [[Char]]) -&gt; [([Char], [Char])] -&gt; [[Char]]
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">TimeLocale -&gt; [([Char], [Char])]
</span><a href="Data.Time.Format.Locale.html#months"><span class="hs-identifier hs-var hs-var">months</span></a></span><span> </span><span class="annot"><span class="annottext">TimeLocale
</span><a href="#local-6989586621679073483"><span class="hs-identifier hs-var">l</span></a></span><span>
</span><span id="line-90"></span><span>                </span><span class="annot"><span class="annottext">[DayComponent] -&gt; Maybe [DayComponent]
forall (m :: * -&gt; *) a. Monad m =&gt; a -&gt; m a
</span><a href="../../base/src/GHC.Base.html#return"><span class="hs-identifier hs-var">return</span></a></span><span> </span><span class="hs-special">[</span><span class="annot"><span class="annottext">Int -&gt; DayComponent
</span><a href="Data.Time.Format.Parse.Instances.html#YearMonth"><span class="hs-identifier hs-var">YearMonth</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679073460"><span class="hs-identifier hs-var">a</span></a></span><span class="hs-special">]</span><span>
</span><span id="line-91"></span><span>            </span><span class="hs-comment">-- %b: month name, short form (snd from months locale), Jan - Dec</span><span>
</span><span id="line-92"></span><span>            </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'b'</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-keyword">do</span><span>
</span><span id="line-93"></span><span>                </span><span id="local-6989586621679073458"><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679073458"><span class="hs-identifier hs-var">a</span></a></span></span><span> </span><span class="hs-glyph">&lt;-</span><span> </span><span class="annot"><span class="annottext">[[Char]] -&gt; Maybe Int
</span><a href="#local-6989586621679073472"><span class="hs-identifier hs-var">oneBasedListIndex</span></a></span><span> </span><span class="annot"><span class="annottext">([[Char]] -&gt; Maybe Int) -&gt; [[Char]] -&gt; Maybe Int
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">(([Char], [Char]) -&gt; [Char]) -&gt; [([Char], [Char])] -&gt; [[Char]]
forall (f :: * -&gt; *) a b. Functor f =&gt; (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="../../base/src/GHC.Base.html#fmap"><span class="hs-identifier hs-var">fmap</span></a></span><span> </span><span class="annot"><span class="annottext">([Char], [Char]) -&gt; [Char]
forall a b. (a, b) -&gt; b
</span><a href="../../base/src/Data.Tuple.html#snd"><span class="hs-identifier hs-var">snd</span></a></span><span> </span><span class="annot"><span class="annottext">([([Char], [Char])] -&gt; [[Char]]) -&gt; [([Char], [Char])] -&gt; [[Char]]
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">TimeLocale -&gt; [([Char], [Char])]
</span><a href="Data.Time.Format.Locale.html#months"><span class="hs-identifier hs-var hs-var">months</span></a></span><span> </span><span class="annot"><span class="annottext">TimeLocale
</span><a href="#local-6989586621679073483"><span class="hs-identifier hs-var">l</span></a></span><span>
</span><span id="line-94"></span><span>                </span><span class="annot"><span class="annottext">[DayComponent] -&gt; Maybe [DayComponent]
forall (m :: * -&gt; *) a. Monad m =&gt; a -&gt; m a
</span><a href="../../base/src/GHC.Base.html#return"><span class="hs-identifier hs-var">return</span></a></span><span> </span><span class="hs-special">[</span><span class="annot"><span class="annottext">Int -&gt; DayComponent
</span><a href="Data.Time.Format.Parse.Instances.html#YearMonth"><span class="hs-identifier hs-var">YearMonth</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679073458"><span class="hs-identifier hs-var">a</span></a></span><span class="hs-special">]</span><span>
</span><span id="line-95"></span><span>            </span><span class="hs-comment">-- %m: month of year, leading 0 as needed, 01 - 12</span><span>
</span><span id="line-96"></span><span>            </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'m'</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-keyword">do</span><span>
</span><span id="line-97"></span><span>                </span><span id="local-6989586621679073457"><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679073457"><span class="hs-identifier hs-var">raw</span></a></span></span><span> </span><span class="hs-glyph">&lt;-</span><span> </span><span class="annot"><span class="annottext">Maybe Int
forall a. Read a =&gt; Maybe a
</span><a href="#local-6989586621679073479"><span class="hs-identifier hs-var">ra</span></a></span><span>
</span><span id="line-98"></span><span>                </span><span id="local-6989586621679073456"><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679073456"><span class="hs-identifier hs-var">a</span></a></span></span><span> </span><span class="hs-glyph">&lt;-</span><span> </span><span class="annot"><span class="annottext">Int -&gt; Int -&gt; Int -&gt; Maybe Int
forall t. Ord t =&gt; t -&gt; t -&gt; t -&gt; Maybe t
</span><a href="Data.Time.Calendar.Private.html#clipValid"><span class="hs-identifier hs-var">clipValid</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">1</span></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">12</span></span><span> </span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679073457"><span class="hs-identifier hs-var">raw</span></a></span><span>
</span><span id="line-99"></span><span>                </span><span class="annot"><span class="annottext">[DayComponent] -&gt; Maybe [DayComponent]
forall (m :: * -&gt; *) a. Monad m =&gt; a -&gt; m a
</span><a href="../../base/src/GHC.Base.html#return"><span class="hs-identifier hs-var">return</span></a></span><span> </span><span class="hs-special">[</span><span class="annot"><span class="annottext">Int -&gt; DayComponent
</span><a href="Data.Time.Format.Parse.Instances.html#YearMonth"><span class="hs-identifier hs-var">YearMonth</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679073456"><span class="hs-identifier hs-var">a</span></a></span><span class="hs-special">]</span><span>
</span><span id="line-100"></span><span>            </span><span class="hs-comment">-- %d: day of month, leading 0 as needed, 01 - 31</span><span>
</span><span id="line-101"></span><span>            </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'d'</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-keyword">do</span><span>
</span><span id="line-102"></span><span>                </span><span id="local-6989586621679073455"><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679073455"><span class="hs-identifier hs-var">raw</span></a></span></span><span> </span><span class="hs-glyph">&lt;-</span><span> </span><span class="annot"><span class="annottext">Maybe Int
forall a. Read a =&gt; Maybe a
</span><a href="#local-6989586621679073479"><span class="hs-identifier hs-var">ra</span></a></span><span>
</span><span id="line-103"></span><span>                </span><span id="local-6989586621679073454"><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679073454"><span class="hs-identifier hs-var">a</span></a></span></span><span> </span><span class="hs-glyph">&lt;-</span><span> </span><span class="annot"><span class="annottext">Int -&gt; Int -&gt; Int -&gt; Maybe Int
forall t. Ord t =&gt; t -&gt; t -&gt; t -&gt; Maybe t
</span><a href="Data.Time.Calendar.Private.html#clipValid"><span class="hs-identifier hs-var">clipValid</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">1</span></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">31</span></span><span> </span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679073455"><span class="hs-identifier hs-var">raw</span></a></span><span>
</span><span id="line-104"></span><span>                </span><span class="annot"><span class="annottext">[DayComponent] -&gt; Maybe [DayComponent]
forall (m :: * -&gt; *) a. Monad m =&gt; a -&gt; m a
</span><a href="../../base/src/GHC.Base.html#return"><span class="hs-identifier hs-var">return</span></a></span><span> </span><span class="hs-special">[</span><span class="annot"><span class="annottext">Int -&gt; DayComponent
</span><a href="Data.Time.Format.Parse.Instances.html#MonthDay"><span class="hs-identifier hs-var">MonthDay</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679073454"><span class="hs-identifier hs-var">a</span></a></span><span class="hs-special">]</span><span>
</span><span id="line-105"></span><span>            </span><span class="hs-comment">-- %e: day of month, leading space as needed, 1 - 31</span><span>
</span><span id="line-106"></span><span>            </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'e'</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-keyword">do</span><span>
</span><span id="line-107"></span><span>                </span><span id="local-6989586621679073453"><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679073453"><span class="hs-identifier hs-var">raw</span></a></span></span><span> </span><span class="hs-glyph">&lt;-</span><span> </span><span class="annot"><span class="annottext">Maybe Int
forall a. Read a =&gt; Maybe a
</span><a href="#local-6989586621679073479"><span class="hs-identifier hs-var">ra</span></a></span><span>
</span><span id="line-108"></span><span>                </span><span id="local-6989586621679073452"><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679073452"><span class="hs-identifier hs-var">a</span></a></span></span><span> </span><span class="hs-glyph">&lt;-</span><span> </span><span class="annot"><span class="annottext">Int -&gt; Int -&gt; Int -&gt; Maybe Int
forall t. Ord t =&gt; t -&gt; t -&gt; t -&gt; Maybe t
</span><a href="Data.Time.Calendar.Private.html#clipValid"><span class="hs-identifier hs-var">clipValid</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">1</span></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">31</span></span><span> </span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679073453"><span class="hs-identifier hs-var">raw</span></a></span><span>
</span><span id="line-109"></span><span>                </span><span class="annot"><span class="annottext">[DayComponent] -&gt; Maybe [DayComponent]
forall (m :: * -&gt; *) a. Monad m =&gt; a -&gt; m a
</span><a href="../../base/src/GHC.Base.html#return"><span class="hs-identifier hs-var">return</span></a></span><span> </span><span class="hs-special">[</span><span class="annot"><span class="annottext">Int -&gt; DayComponent
</span><a href="Data.Time.Format.Parse.Instances.html#MonthDay"><span class="hs-identifier hs-var">MonthDay</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679073452"><span class="hs-identifier hs-var">a</span></a></span><span class="hs-special">]</span><span>
</span><span id="line-110"></span><span>            </span><span class="hs-comment">-- %V: week for Week Date format, 01 - 53</span><span>
</span><span id="line-111"></span><span>            </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'V'</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-keyword">do</span><span>
</span><span id="line-112"></span><span>                </span><span id="local-6989586621679073451"><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679073451"><span class="hs-identifier hs-var">raw</span></a></span></span><span> </span><span class="hs-glyph">&lt;-</span><span> </span><span class="annot"><span class="annottext">Maybe Int
forall a. Read a =&gt; Maybe a
</span><a href="#local-6989586621679073479"><span class="hs-identifier hs-var">ra</span></a></span><span>
</span><span id="line-113"></span><span>                </span><span id="local-6989586621679073450"><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679073450"><span class="hs-identifier hs-var">a</span></a></span></span><span> </span><span class="hs-glyph">&lt;-</span><span> </span><span class="annot"><span class="annottext">Int -&gt; Int -&gt; Int -&gt; Maybe Int
forall t. Ord t =&gt; t -&gt; t -&gt; t -&gt; Maybe t
</span><a href="Data.Time.Calendar.Private.html#clipValid"><span class="hs-identifier hs-var">clipValid</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">1</span></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">53</span></span><span> </span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679073451"><span class="hs-identifier hs-var">raw</span></a></span><span>
</span><span id="line-114"></span><span>                </span><span class="annot"><span class="annottext">[DayComponent] -&gt; Maybe [DayComponent]
forall (m :: * -&gt; *) a. Monad m =&gt; a -&gt; m a
</span><a href="../../base/src/GHC.Base.html#return"><span class="hs-identifier hs-var">return</span></a></span><span> </span><span class="hs-special">[</span><span class="annot"><span class="annottext">WeekType -&gt; Int -&gt; DayComponent
</span><a href="Data.Time.Format.Parse.Instances.html#YearWeek"><span class="hs-identifier hs-var">YearWeek</span></a></span><span> </span><span class="annot"><span class="annottext">WeekType
</span><a href="Data.Time.Format.Parse.Instances.html#ISOWeek"><span class="hs-identifier hs-var">ISOWeek</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679073450"><span class="hs-identifier hs-var">a</span></a></span><span class="hs-special">]</span><span>
</span><span id="line-115"></span><span>            </span><span class="hs-comment">-- %U: week number of year, where weeks start on Sunday (as sundayStartWeek), 00 - 53</span><span>
</span><span id="line-116"></span><span>            </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'U'</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-keyword">do</span><span>
</span><span id="line-117"></span><span>                </span><span id="local-6989586621679073449"><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679073449"><span class="hs-identifier hs-var">raw</span></a></span></span><span> </span><span class="hs-glyph">&lt;-</span><span> </span><span class="annot"><span class="annottext">Maybe Int
forall a. Read a =&gt; Maybe a
</span><a href="#local-6989586621679073479"><span class="hs-identifier hs-var">ra</span></a></span><span>
</span><span id="line-118"></span><span>                </span><span id="local-6989586621679073448"><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679073448"><span class="hs-identifier hs-var">a</span></a></span></span><span> </span><span class="hs-glyph">&lt;-</span><span> </span><span class="annot"><span class="annottext">Int -&gt; Int -&gt; Int -&gt; Maybe Int
forall t. Ord t =&gt; t -&gt; t -&gt; t -&gt; Maybe t
</span><a href="Data.Time.Calendar.Private.html#clipValid"><span class="hs-identifier hs-var">clipValid</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">0</span></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">53</span></span><span> </span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679073449"><span class="hs-identifier hs-var">raw</span></a></span><span>
</span><span id="line-119"></span><span>                </span><span class="annot"><span class="annottext">[DayComponent] -&gt; Maybe [DayComponent]
forall (m :: * -&gt; *) a. Monad m =&gt; a -&gt; m a
</span><a href="../../base/src/GHC.Base.html#return"><span class="hs-identifier hs-var">return</span></a></span><span> </span><span class="hs-special">[</span><span class="annot"><span class="annottext">WeekType -&gt; Int -&gt; DayComponent
</span><a href="Data.Time.Format.Parse.Instances.html#YearWeek"><span class="hs-identifier hs-var">YearWeek</span></a></span><span> </span><span class="annot"><span class="annottext">WeekType
</span><a href="Data.Time.Format.Parse.Instances.html#SundayWeek"><span class="hs-identifier hs-var">SundayWeek</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679073448"><span class="hs-identifier hs-var">a</span></a></span><span class="hs-special">]</span><span>
</span><span id="line-120"></span><span>            </span><span class="hs-comment">-- %W: week number of year, where weeks start on Monday (as mondayStartWeek), 00 - 53</span><span>
</span><span id="line-121"></span><span>            </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'W'</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-keyword">do</span><span>
</span><span id="line-122"></span><span>                </span><span id="local-6989586621679073447"><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679073447"><span class="hs-identifier hs-var">raw</span></a></span></span><span> </span><span class="hs-glyph">&lt;-</span><span> </span><span class="annot"><span class="annottext">Maybe Int
forall a. Read a =&gt; Maybe a
</span><a href="#local-6989586621679073479"><span class="hs-identifier hs-var">ra</span></a></span><span>
</span><span id="line-123"></span><span>                </span><span id="local-6989586621679073446"><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679073446"><span class="hs-identifier hs-var">a</span></a></span></span><span> </span><span class="hs-glyph">&lt;-</span><span> </span><span class="annot"><span class="annottext">Int -&gt; Int -&gt; Int -&gt; Maybe Int
forall t. Ord t =&gt; t -&gt; t -&gt; t -&gt; Maybe t
</span><a href="Data.Time.Calendar.Private.html#clipValid"><span class="hs-identifier hs-var">clipValid</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">0</span></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">53</span></span><span> </span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679073447"><span class="hs-identifier hs-var">raw</span></a></span><span>
</span><span id="line-124"></span><span>                </span><span class="annot"><span class="annottext">[DayComponent] -&gt; Maybe [DayComponent]
forall (m :: * -&gt; *) a. Monad m =&gt; a -&gt; m a
</span><a href="../../base/src/GHC.Base.html#return"><span class="hs-identifier hs-var">return</span></a></span><span> </span><span class="hs-special">[</span><span class="annot"><span class="annottext">WeekType -&gt; Int -&gt; DayComponent
</span><a href="Data.Time.Format.Parse.Instances.html#YearWeek"><span class="hs-identifier hs-var">YearWeek</span></a></span><span> </span><span class="annot"><span class="annottext">WeekType
</span><a href="Data.Time.Format.Parse.Instances.html#MondayWeek"><span class="hs-identifier hs-var">MondayWeek</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679073446"><span class="hs-identifier hs-var">a</span></a></span><span class="hs-special">]</span><span>
</span><span id="line-125"></span><span>            </span><span class="hs-comment">-- %u: day for Week Date format, 1 - 7</span><span>
</span><span id="line-126"></span><span>            </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'u'</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-keyword">do</span><span>
</span><span id="line-127"></span><span>                </span><span id="local-6989586621679073445"><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679073445"><span class="hs-identifier hs-var">raw</span></a></span></span><span> </span><span class="hs-glyph">&lt;-</span><span> </span><span class="annot"><span class="annottext">Maybe Int
forall a. Read a =&gt; Maybe a
</span><a href="#local-6989586621679073479"><span class="hs-identifier hs-var">ra</span></a></span><span>
</span><span id="line-128"></span><span>                </span><span id="local-6989586621679073444"><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679073444"><span class="hs-identifier hs-var">a</span></a></span></span><span> </span><span class="hs-glyph">&lt;-</span><span> </span><span class="annot"><span class="annottext">Int -&gt; Int -&gt; Int -&gt; Maybe Int
forall t. Ord t =&gt; t -&gt; t -&gt; t -&gt; Maybe t
</span><a href="Data.Time.Calendar.Private.html#clipValid"><span class="hs-identifier hs-var">clipValid</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">1</span></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">7</span></span><span> </span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679073445"><span class="hs-identifier hs-var">raw</span></a></span><span>
</span><span id="line-129"></span><span>                </span><span class="annot"><span class="annottext">[DayComponent] -&gt; Maybe [DayComponent]
forall (m :: * -&gt; *) a. Monad m =&gt; a -&gt; m a
</span><a href="../../base/src/GHC.Base.html#return"><span class="hs-identifier hs-var">return</span></a></span><span> </span><span class="hs-special">[</span><span class="annot"><span class="annottext">Int -&gt; DayComponent
</span><a href="Data.Time.Format.Parse.Instances.html#WeekDay"><span class="hs-identifier hs-var">WeekDay</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679073444"><span class="hs-identifier hs-var">a</span></a></span><span class="hs-special">]</span><span>
</span><span id="line-130"></span><span>            </span><span class="hs-comment">-- %a: day of week, short form (snd from wDays locale), Sun - Sat</span><span>
</span><span id="line-131"></span><span>            </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'a'</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-keyword">do</span><span>
</span><span id="line-132"></span><span>                </span><span id="local-6989586621679073443"><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679073443"><span class="hs-identifier hs-var">a'</span></a></span></span><span> </span><span class="hs-glyph">&lt;-</span><span> </span><span class="annot"><span class="annottext">[[Char]] -&gt; Maybe Int
</span><a href="#local-6989586621679073476"><span class="hs-identifier hs-var">zeroBasedListIndex</span></a></span><span> </span><span class="annot"><span class="annottext">([[Char]] -&gt; Maybe Int) -&gt; [[Char]] -&gt; Maybe Int
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">(([Char], [Char]) -&gt; [Char]) -&gt; [([Char], [Char])] -&gt; [[Char]]
forall (f :: * -&gt; *) a b. Functor f =&gt; (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="../../base/src/GHC.Base.html#fmap"><span class="hs-identifier hs-var">fmap</span></a></span><span> </span><span class="annot"><span class="annottext">([Char], [Char]) -&gt; [Char]
forall a b. (a, b) -&gt; b
</span><a href="../../base/src/Data.Tuple.html#snd"><span class="hs-identifier hs-var">snd</span></a></span><span> </span><span class="annot"><span class="annottext">([([Char], [Char])] -&gt; [[Char]]) -&gt; [([Char], [Char])] -&gt; [[Char]]
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">TimeLocale -&gt; [([Char], [Char])]
</span><a href="Data.Time.Format.Locale.html#wDays"><span class="hs-identifier hs-var hs-var">wDays</span></a></span><span> </span><span class="annot"><span class="annottext">TimeLocale
</span><a href="#local-6989586621679073483"><span class="hs-identifier hs-var">l</span></a></span><span>
</span><span id="line-133"></span><span>                </span><span class="hs-keyword">let</span><span> </span><span id="local-6989586621679073437"><span class="annot"><span class="annottext">a :: Int
</span><a href="#local-6989586621679073437"><span class="hs-identifier hs-var hs-var">a</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">if</span><span> </span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679073443"><span class="hs-identifier hs-var">a'</span></a></span><span> </span><span class="annot"><span class="annottext">Int -&gt; Int -&gt; Bool
forall a. Eq a =&gt; a -&gt; a -&gt; Bool
</span><span class="hs-operator hs-var">==</span></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">0</span></span><span> </span><span class="hs-keyword">then</span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">7</span></span><span> </span><span class="hs-keyword">else</span><span> </span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679073443"><span class="hs-identifier hs-var">a'</span></a></span><span>
</span><span id="line-134"></span><span>                </span><span class="annot"><span class="annottext">[DayComponent] -&gt; Maybe [DayComponent]
forall (m :: * -&gt; *) a. Monad m =&gt; a -&gt; m a
</span><a href="../../base/src/GHC.Base.html#return"><span class="hs-identifier hs-var">return</span></a></span><span> </span><span class="hs-special">[</span><span class="annot"><span class="annottext">Int -&gt; DayComponent
</span><a href="Data.Time.Format.Parse.Instances.html#WeekDay"><span class="hs-identifier hs-var">WeekDay</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679073437"><span class="hs-identifier hs-var">a</span></a></span><span class="hs-special">]</span><span>
</span><span id="line-135"></span><span>            </span><span class="hs-comment">-- %A: day of week, long form (fst from wDays locale), Sunday - Saturday</span><span>
</span><span id="line-136"></span><span>            </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'A'</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-keyword">do</span><span>
</span><span id="line-137"></span><span>                </span><span id="local-6989586621679073436"><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679073436"><span class="hs-identifier hs-var">a'</span></a></span></span><span> </span><span class="hs-glyph">&lt;-</span><span> </span><span class="annot"><span class="annottext">[[Char]] -&gt; Maybe Int
</span><a href="#local-6989586621679073476"><span class="hs-identifier hs-var">zeroBasedListIndex</span></a></span><span> </span><span class="annot"><span class="annottext">([[Char]] -&gt; Maybe Int) -&gt; [[Char]] -&gt; Maybe Int
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">(([Char], [Char]) -&gt; [Char]) -&gt; [([Char], [Char])] -&gt; [[Char]]
forall (f :: * -&gt; *) a b. Functor f =&gt; (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="../../base/src/GHC.Base.html#fmap"><span class="hs-identifier hs-var">fmap</span></a></span><span> </span><span class="annot"><span class="annottext">([Char], [Char]) -&gt; [Char]
forall a b. (a, b) -&gt; a
</span><a href="../../base/src/Data.Tuple.html#fst"><span class="hs-identifier hs-var">fst</span></a></span><span> </span><span class="annot"><span class="annottext">([([Char], [Char])] -&gt; [[Char]]) -&gt; [([Char], [Char])] -&gt; [[Char]]
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">TimeLocale -&gt; [([Char], [Char])]
</span><a href="Data.Time.Format.Locale.html#wDays"><span class="hs-identifier hs-var hs-var">wDays</span></a></span><span> </span><span class="annot"><span class="annottext">TimeLocale
</span><a href="#local-6989586621679073483"><span class="hs-identifier hs-var">l</span></a></span><span>
</span><span id="line-138"></span><span>                </span><span class="hs-keyword">let</span><span> </span><span id="local-6989586621679073432"><span class="annot"><span class="annottext">a :: Int
</span><a href="#local-6989586621679073432"><span class="hs-identifier hs-var hs-var">a</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">if</span><span> </span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679073436"><span class="hs-identifier hs-var">a'</span></a></span><span> </span><span class="annot"><span class="annottext">Int -&gt; Int -&gt; Bool
forall a. Eq a =&gt; a -&gt; a -&gt; Bool
</span><span class="hs-operator hs-var">==</span></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">0</span></span><span> </span><span class="hs-keyword">then</span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">7</span></span><span> </span><span class="hs-keyword">else</span><span> </span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679073436"><span class="hs-identifier hs-var">a'</span></a></span><span>
</span><span id="line-139"></span><span>                </span><span class="annot"><span class="annottext">[DayComponent] -&gt; Maybe [DayComponent]
forall (m :: * -&gt; *) a. Monad m =&gt; a -&gt; m a
</span><a href="../../base/src/GHC.Base.html#return"><span class="hs-identifier hs-var">return</span></a></span><span> </span><span class="hs-special">[</span><span class="annot"><span class="annottext">Int -&gt; DayComponent
</span><a href="Data.Time.Format.Parse.Instances.html#WeekDay"><span class="hs-identifier hs-var">WeekDay</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679073432"><span class="hs-identifier hs-var">a</span></a></span><span class="hs-special">]</span><span>
</span><span id="line-140"></span><span>            </span><span class="hs-comment">-- %w: day of week number, 0 (= Sunday) - 6 (= Saturday)</span><span>
</span><span id="line-141"></span><span>            </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'w'</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-keyword">do</span><span>
</span><span id="line-142"></span><span>                </span><span id="local-6989586621679073431"><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679073431"><span class="hs-identifier hs-var">raw</span></a></span></span><span> </span><span class="hs-glyph">&lt;-</span><span> </span><span class="annot"><span class="annottext">Maybe Int
forall a. Read a =&gt; Maybe a
</span><a href="#local-6989586621679073479"><span class="hs-identifier hs-var">ra</span></a></span><span>
</span><span id="line-143"></span><span>                </span><span id="local-6989586621679073430"><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679073430"><span class="hs-identifier hs-var">a'</span></a></span></span><span> </span><span class="hs-glyph">&lt;-</span><span> </span><span class="annot"><span class="annottext">Int -&gt; Int -&gt; Int -&gt; Maybe Int
forall t. Ord t =&gt; t -&gt; t -&gt; t -&gt; Maybe t
</span><a href="Data.Time.Calendar.Private.html#clipValid"><span class="hs-identifier hs-var">clipValid</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">0</span></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">6</span></span><span> </span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679073431"><span class="hs-identifier hs-var">raw</span></a></span><span>
</span><span id="line-144"></span><span>                </span><span class="hs-keyword">let</span><span> </span><span id="local-6989586621679073426"><span class="annot"><span class="annottext">a :: Int
</span><a href="#local-6989586621679073426"><span class="hs-identifier hs-var hs-var">a</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">if</span><span> </span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679073430"><span class="hs-identifier hs-var">a'</span></a></span><span> </span><span class="annot"><span class="annottext">Int -&gt; Int -&gt; Bool
forall a. Eq a =&gt; a -&gt; a -&gt; Bool
</span><span class="hs-operator hs-var">==</span></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">0</span></span><span> </span><span class="hs-keyword">then</span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">7</span></span><span> </span><span class="hs-keyword">else</span><span> </span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679073430"><span class="hs-identifier hs-var">a'</span></a></span><span>
</span><span id="line-145"></span><span>                </span><span class="annot"><span class="annottext">[DayComponent] -&gt; Maybe [DayComponent]
forall (m :: * -&gt; *) a. Monad m =&gt; a -&gt; m a
</span><a href="../../base/src/GHC.Base.html#return"><span class="hs-identifier hs-var">return</span></a></span><span> </span><span class="hs-special">[</span><span class="annot"><span class="annottext">Int -&gt; DayComponent
</span><a href="Data.Time.Format.Parse.Instances.html#WeekDay"><span class="hs-identifier hs-var">WeekDay</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679073426"><span class="hs-identifier hs-var">a</span></a></span><span class="hs-special">]</span><span>
</span><span id="line-146"></span><span>            </span><span class="hs-comment">-- %j: day of year for Ordinal Date format, 001 - 366</span><span>
</span><span id="line-147"></span><span>            </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'j'</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-keyword">do</span><span>
</span><span id="line-148"></span><span>                </span><span id="local-6989586621679073425"><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679073425"><span class="hs-identifier hs-var">raw</span></a></span></span><span> </span><span class="hs-glyph">&lt;-</span><span> </span><span class="annot"><span class="annottext">Maybe Int
forall a. Read a =&gt; Maybe a
</span><a href="#local-6989586621679073479"><span class="hs-identifier hs-var">ra</span></a></span><span>
</span><span id="line-149"></span><span>                </span><span id="local-6989586621679073424"><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679073424"><span class="hs-identifier hs-var">a</span></a></span></span><span> </span><span class="hs-glyph">&lt;-</span><span> </span><span class="annot"><span class="annottext">Int -&gt; Int -&gt; Int -&gt; Maybe Int
forall t. Ord t =&gt; t -&gt; t -&gt; t -&gt; Maybe t
</span><a href="Data.Time.Calendar.Private.html#clipValid"><span class="hs-identifier hs-var">clipValid</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">1</span></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">366</span></span><span> </span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679073425"><span class="hs-identifier hs-var">raw</span></a></span><span>
</span><span id="line-150"></span><span>                </span><span class="annot"><span class="annottext">[DayComponent] -&gt; Maybe [DayComponent]
forall (m :: * -&gt; *) a. Monad m =&gt; a -&gt; m a
</span><a href="../../base/src/GHC.Base.html#return"><span class="hs-identifier hs-var">return</span></a></span><span> </span><span class="hs-special">[</span><span class="annot"><span class="annottext">Int -&gt; DayComponent
</span><a href="Data.Time.Format.Parse.Instances.html#YearDay"><span class="hs-identifier hs-var">YearDay</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679073424"><span class="hs-identifier hs-var">a</span></a></span><span class="hs-special">]</span><span>
</span><span id="line-151"></span><span>            </span><span class="hs-comment">-- unrecognised, pass on to other parsers</span><span>
</span><span id="line-152"></span><span>            </span><span class="annot"><span class="annottext">Char
</span><span class="hs-identifier">_</span></span><span>   </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">[DayComponent] -&gt; Maybe [DayComponent]
forall (m :: * -&gt; *) a. Monad m =&gt; a -&gt; m a
</span><a href="../../base/src/GHC.Base.html#return"><span class="hs-identifier hs-var">return</span></a></span><span> </span><span class="hs-special">[</span><span class="hs-special">]</span><span>
</span><span id="line-153"></span><span>
</span><span id="line-154"></span><span>        </span><span class="annot"><a href="#local-6989586621679073423"><span class="hs-identifier hs-type">buildDay</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">[</span><span class="annot"><a href="Data.Time.Format.Parse.Instances.html#DayComponent"><span class="hs-identifier hs-type">DayComponent</span></a></span><span class="hs-special">]</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="../../base/src/GHC.Maybe.html#Maybe"><span class="hs-identifier hs-type">Maybe</span></a></span><span> </span><span class="annot"><a href="Data.Time.Calendar.Days.html#Day"><span class="hs-identifier hs-type">Day</span></a></span><span>
</span><span id="line-155"></span><span>        </span><span id="local-6989586621679073423"><span class="annot"><span class="annottext">buildDay :: [DayComponent] -&gt; Maybe Day
</span><a href="#local-6989586621679073423"><span class="hs-identifier hs-var hs-var">buildDay</span></a></span></span><span> </span><span id="local-6989586621679073422"><span class="annot"><span class="annottext">[DayComponent]
</span><a href="#local-6989586621679073422"><span class="hs-identifier hs-var">cs</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">let</span><span>
</span><span id="line-156"></span><span>            </span><span id="local-6989586621679073421"><span class="annot"><span class="annottext">safeLast :: a -&gt; [a] -&gt; a
</span><a href="#local-6989586621679073421"><span class="hs-identifier hs-var hs-var">safeLast</span></a></span></span><span> </span><span id="local-6989586621679073420"><span class="annot"><span class="annottext">a
</span><a href="#local-6989586621679073420"><span class="hs-identifier hs-var">x</span></a></span></span><span> </span><span id="local-6989586621679073419"><span class="annot"><span class="annottext">[a]
</span><a href="#local-6989586621679073419"><span class="hs-identifier hs-var">xs</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">[a] -&gt; a
forall a. [a] -&gt; a
</span><a href="../../base/src/GHC.List.html#last"><span class="hs-identifier hs-var">last</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">a
</span><a href="#local-6989586621679073420"><span class="hs-identifier hs-var">x</span></a></span><span class="annot"><span class="annottext">a -&gt; [a] -&gt; [a]
forall a. a -&gt; [a] -&gt; [a]
</span><span class="hs-glyph hs-var">:</span></span><span class="annot"><span class="annottext">[a]
</span><a href="#local-6989586621679073419"><span class="hs-identifier hs-var">xs</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-157"></span><span>            </span><span id="local-6989586621679073414"><span class="annot"><span class="annottext">y :: Integer
</span><a href="#local-6989586621679073414"><span class="hs-identifier hs-var hs-var">y</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">let</span><span>
</span><span id="line-158"></span><span>                </span><span id="local-6989586621679073412"><span class="annot"><span class="annottext">d :: Integer
</span><a href="#local-6989586621679073412"><span class="hs-identifier hs-var hs-var">d</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Integer -&gt; [Integer] -&gt; Integer
forall {a}. a -&gt; [a] -&gt; a
</span><a href="#local-6989586621679073421"><span class="hs-identifier hs-var">safeLast</span></a></span><span> </span><span class="annot"><span class="annottext">Integer
</span><span class="hs-number">70</span></span><span> </span><span class="hs-special">[</span><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621679073411"><span class="hs-identifier hs-var">x</span></a></span><span> </span><span class="hs-glyph">|</span><span> </span><span class="annot"><a href="Data.Time.Format.Parse.Instances.html#CenturyYear"><span class="hs-identifier hs-type">CenturyYear</span></a></span><span> </span><span id="local-6989586621679073411"><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621679073411"><span class="hs-identifier hs-var">x</span></a></span></span><span> </span><span class="hs-glyph">&lt;-</span><span> </span><span class="annot"><span class="annottext">[DayComponent]
</span><a href="#local-6989586621679073422"><span class="hs-identifier hs-var">cs</span></a></span><span class="hs-special">]</span><span>
</span><span id="line-159"></span><span>                </span><span id="local-6989586621679073405"><span class="annot"><span class="annottext">c :: Integer
</span><a href="#local-6989586621679073405"><span class="hs-identifier hs-var hs-var">c</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Integer -&gt; [Integer] -&gt; Integer
forall {a}. a -&gt; [a] -&gt; a
</span><a href="#local-6989586621679073421"><span class="hs-identifier hs-var">safeLast</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-keyword">if</span><span> </span><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621679073412"><span class="hs-identifier hs-var">d</span></a></span><span> </span><span class="annot"><span class="annottext">Integer -&gt; Integer -&gt; Bool
forall a. Ord a =&gt; a -&gt; a -&gt; Bool
</span><span class="hs-operator hs-var">&gt;=</span></span><span> </span><span class="annot"><span class="annottext">Integer
</span><span class="hs-number">69</span></span><span> </span><span class="hs-keyword">then</span><span> </span><span class="annot"><span class="annottext">Integer
</span><span class="hs-number">19</span></span><span> </span><span class="hs-keyword">else</span><span> </span><span class="annot"><span class="annottext">Integer
</span><span class="hs-number">20</span></span><span class="hs-special">)</span><span> </span><span class="hs-special">[</span><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621679073404"><span class="hs-identifier hs-var">x</span></a></span><span> </span><span class="hs-glyph">|</span><span> </span><span class="annot"><a href="Data.Time.Format.Parse.Instances.html#Century"><span class="hs-identifier hs-type">Century</span></a></span><span> </span><span id="local-6989586621679073404"><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621679073404"><span class="hs-identifier hs-var">x</span></a></span></span><span> </span><span class="hs-glyph">&lt;-</span><span> </span><span class="annot"><span class="annottext">[DayComponent]
</span><a href="#local-6989586621679073422"><span class="hs-identifier hs-var">cs</span></a></span><span class="hs-special">]</span><span>
</span><span id="line-160"></span><span>                </span><span class="hs-keyword">in</span><span> </span><span class="annot"><span class="annottext">Integer
</span><span class="hs-number">100</span></span><span> </span><span class="annot"><span class="annottext">Integer -&gt; Integer -&gt; Integer
forall a. Num a =&gt; a -&gt; a -&gt; a
</span><a href="../../base/src/GHC.Num.html#%2A"><span class="hs-operator hs-var">*</span></a></span><span> </span><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621679073405"><span class="hs-identifier hs-var">c</span></a></span><span> </span><span class="annot"><span class="annottext">Integer -&gt; Integer -&gt; Integer
forall a. Num a =&gt; a -&gt; a -&gt; a
</span><a href="../../base/src/GHC.Num.html#%2B"><span class="hs-operator hs-var">+</span></a></span><span> </span><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621679073412"><span class="hs-identifier hs-var">d</span></a></span><span>
</span><span id="line-161"></span><span>            </span><span id="local-6989586621679073399"><span class="annot"><span class="annottext">rest :: [DayComponent] -&gt; Maybe Day
</span><a href="#local-6989586621679073399"><span class="hs-identifier hs-var hs-var">rest</span></a></span></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="Data.Time.Format.Parse.Instances.html#YearMonth"><span class="hs-identifier hs-type">YearMonth</span></a></span><span> </span><span id="local-6989586621679073398"><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679073398"><span class="hs-identifier hs-var">m</span></a></span></span><span class="annot"><span class="hs-glyph hs-type">:</span></span><span class="annot"><span class="annottext">[DayComponent]
</span><span class="hs-identifier">_</span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">let</span><span>
</span><span id="line-162"></span><span>                </span><span id="local-6989586621679073396"><span class="annot"><span class="annottext">d :: Int
</span><a href="#local-6989586621679073396"><span class="hs-identifier hs-var hs-var">d</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Int -&gt; [Int] -&gt; Int
forall {a}. a -&gt; [a] -&gt; a
</span><a href="#local-6989586621679073421"><span class="hs-identifier hs-var">safeLast</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">1</span></span><span> </span><span class="hs-special">[</span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679073395"><span class="hs-identifier hs-var">x</span></a></span><span> </span><span class="hs-glyph">|</span><span> </span><span class="annot"><a href="Data.Time.Format.Parse.Instances.html#MonthDay"><span class="hs-identifier hs-type">MonthDay</span></a></span><span> </span><span id="local-6989586621679073395"><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679073395"><span class="hs-identifier hs-var">x</span></a></span></span><span> </span><span class="hs-glyph">&lt;-</span><span> </span><span class="annot"><span class="annottext">[DayComponent]
</span><a href="#local-6989586621679073422"><span class="hs-identifier hs-var">cs</span></a></span><span class="hs-special">]</span><span>
</span><span id="line-163"></span><span>                </span><span class="hs-keyword">in</span><span> </span><span class="annot"><span class="annottext">Integer -&gt; Int -&gt; Int -&gt; Maybe Day
</span><a href="Data.Time.Calendar.Gregorian.html#fromGregorianValid"><span class="hs-identifier hs-var">fromGregorianValid</span></a></span><span> </span><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621679073414"><span class="hs-identifier hs-var">y</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679073398"><span class="hs-identifier hs-var">m</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679073396"><span class="hs-identifier hs-var">d</span></a></span><span>
</span><span id="line-164"></span><span>            </span><span class="annot"><a href="#local-6989586621679073399"><span class="hs-identifier hs-var">rest</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="Data.Time.Format.Parse.Instances.html#YearDay"><span class="hs-identifier hs-type">YearDay</span></a></span><span> </span><span id="local-6989586621679073393"><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679073393"><span class="hs-identifier hs-var">d</span></a></span></span><span class="annot"><span class="hs-glyph hs-type">:</span></span><span class="annot"><span class="annottext">[DayComponent]
</span><span class="hs-identifier">_</span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Integer -&gt; Int -&gt; Maybe Day
</span><a href="Data.Time.Calendar.OrdinalDate.html#fromOrdinalDateValid"><span class="hs-identifier hs-var">fromOrdinalDateValid</span></a></span><span> </span><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621679073414"><span class="hs-identifier hs-var">y</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679073393"><span class="hs-identifier hs-var">d</span></a></span><span>
</span><span id="line-165"></span><span>            </span><span class="annot"><a href="#local-6989586621679073399"><span class="hs-identifier hs-var">rest</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="Data.Time.Format.Parse.Instances.html#YearWeek"><span class="hs-identifier hs-type">YearWeek</span></a></span><span> </span><span id="local-6989586621679073391"><span class="annot"><span class="annottext">WeekType
</span><a href="#local-6989586621679073391"><span class="hs-identifier hs-var">wt</span></a></span></span><span> </span><span id="local-6989586621679073390"><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679073390"><span class="hs-identifier hs-var">w</span></a></span></span><span class="annot"><span class="hs-glyph hs-type">:</span></span><span class="annot"><span class="annottext">[DayComponent]
</span><span class="hs-identifier">_</span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">let</span><span>
</span><span id="line-166"></span><span>                </span><span id="local-6989586621679073388"><span class="annot"><span class="annottext">d :: Int
</span><a href="#local-6989586621679073388"><span class="hs-identifier hs-var hs-var">d</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Int -&gt; [Int] -&gt; Int
forall {a}. a -&gt; [a] -&gt; a
</span><a href="#local-6989586621679073421"><span class="hs-identifier hs-var">safeLast</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">4</span></span><span> </span><span class="hs-special">[</span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679073387"><span class="hs-identifier hs-var">x</span></a></span><span> </span><span class="hs-glyph">|</span><span> </span><span class="annot"><a href="Data.Time.Format.Parse.Instances.html#WeekDay"><span class="hs-identifier hs-type">WeekDay</span></a></span><span> </span><span id="local-6989586621679073387"><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679073387"><span class="hs-identifier hs-var">x</span></a></span></span><span> </span><span class="hs-glyph">&lt;-</span><span> </span><span class="annot"><span class="annottext">[DayComponent]
</span><a href="#local-6989586621679073422"><span class="hs-identifier hs-var">cs</span></a></span><span class="hs-special">]</span><span>
</span><span id="line-167"></span><span>                </span><span class="hs-keyword">in</span><span> </span><span class="hs-keyword">case</span><span> </span><span class="annot"><span class="annottext">WeekType
</span><a href="#local-6989586621679073391"><span class="hs-identifier hs-var">wt</span></a></span><span> </span><span class="hs-keyword">of</span><span>
</span><span id="line-168"></span><span>                    </span><span class="annot"><span class="annottext">WeekType
</span><a href="Data.Time.Format.Parse.Instances.html#ISOWeek"><span class="hs-identifier hs-var">ISOWeek</span></a></span><span>    </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Integer -&gt; Int -&gt; Int -&gt; Maybe Day
</span><a href="Data.Time.Calendar.WeekDate.html#fromWeekDateValid"><span class="hs-identifier hs-var">fromWeekDateValid</span></a></span><span> </span><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621679073414"><span class="hs-identifier hs-var">y</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679073390"><span class="hs-identifier hs-var">w</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679073388"><span class="hs-identifier hs-var">d</span></a></span><span>
</span><span id="line-169"></span><span>                    </span><span class="annot"><span class="annottext">WeekType
</span><a href="Data.Time.Format.Parse.Instances.html#SundayWeek"><span class="hs-identifier hs-var">SundayWeek</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Integer -&gt; Int -&gt; Int -&gt; Maybe Day
</span><a href="Data.Time.Calendar.OrdinalDate.html#fromSundayStartWeekValid"><span class="hs-identifier hs-var">fromSundayStartWeekValid</span></a></span><span> </span><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621679073414"><span class="hs-identifier hs-var">y</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679073390"><span class="hs-identifier hs-var">w</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679073388"><span class="hs-identifier hs-var">d</span></a></span><span> </span><span class="annot"><span class="annottext">Int -&gt; Int -&gt; Int
forall a. Integral a =&gt; a -&gt; a -&gt; a
</span><a href="../../base/src/GHC.Real.html#mod"><span class="hs-operator hs-var">`mod`</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">7</span></span><span class="hs-special">)</span><span>
</span><span id="line-170"></span><span>                    </span><span class="annot"><span class="annottext">WeekType
</span><a href="Data.Time.Format.Parse.Instances.html#MondayWeek"><span class="hs-identifier hs-var">MondayWeek</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Integer -&gt; Int -&gt; Int -&gt; Maybe Day
</span><a href="Data.Time.Calendar.OrdinalDate.html#fromMondayStartWeekValid"><span class="hs-identifier hs-var">fromMondayStartWeekValid</span></a></span><span> </span><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621679073414"><span class="hs-identifier hs-var">y</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679073390"><span class="hs-identifier hs-var">w</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679073388"><span class="hs-identifier hs-var">d</span></a></span><span>
</span><span id="line-171"></span><span>            </span><span class="annot"><a href="#local-6989586621679073399"><span class="hs-identifier hs-var">rest</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">DayComponent
</span><span class="hs-identifier">_</span></span><span class="annot"><span class="hs-glyph hs-type">:</span></span><span id="local-6989586621679073383"><span class="annot"><span class="annottext">[DayComponent]
</span><a href="#local-6989586621679073383"><span class="hs-identifier hs-var">xs</span></a></span></span><span class="hs-special">)</span><span>        </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">[DayComponent] -&gt; Maybe Day
</span><a href="#local-6989586621679073399"><span class="hs-identifier hs-var">rest</span></a></span><span> </span><span class="annot"><span class="annottext">[DayComponent]
</span><a href="#local-6989586621679073383"><span class="hs-identifier hs-var">xs</span></a></span><span>
</span><span id="line-172"></span><span>            </span><span class="annot"><a href="#local-6989586621679073399"><span class="hs-identifier hs-var">rest</span></a></span><span> </span><span class="hs-special">[</span><span class="hs-special">]</span><span>            </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">[DayComponent] -&gt; Maybe Day
</span><a href="#local-6989586621679073399"><span class="hs-identifier hs-var">rest</span></a></span><span> </span><span class="hs-special">[</span><span class="annot"><span class="annottext">Int -&gt; DayComponent
</span><a href="Data.Time.Format.Parse.Instances.html#YearMonth"><span class="hs-identifier hs-var">YearMonth</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">1</span></span><span class="hs-special">]</span><span>
</span><span id="line-173"></span><span>
</span><span id="line-174"></span><span>            </span><span class="hs-keyword">in</span><span> </span><span class="annot"><span class="annottext">[DayComponent] -&gt; Maybe Day
</span><a href="#local-6989586621679073399"><span class="hs-identifier hs-var">rest</span></a></span><span> </span><span class="annot"><span class="annottext">[DayComponent]
</span><a href="#local-6989586621679073422"><span class="hs-identifier hs-var">cs</span></a></span><span>
</span><span id="line-175"></span><span>
</span><span id="line-176"></span><span>        </span><span class="hs-keyword">in</span><span> </span><span class="hs-glyph">\</span><span id="local-6989586621679073382"><span class="annot"><span class="annottext">[(Char, [Char])]
</span><a href="#local-6989586621679073382"><span class="hs-identifier hs-var">pairs</span></a></span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-keyword">do</span><span>
</span><span id="line-177"></span><span>            </span><span id="local-6989586621679073381"><span class="annot"><span class="annottext">[[DayComponent]]
</span><a href="#local-6989586621679073381"><span class="hs-identifier hs-var">components</span></a></span></span><span> </span><span class="hs-glyph">&lt;-</span><span> </span><span class="annot"><span class="annottext">[(Char, [Char])]
-&gt; ((Char, [Char]) -&gt; Maybe [DayComponent])
-&gt; Maybe [[DayComponent]]
forall (t :: * -&gt; *) (f :: * -&gt; *) a b.
(Traversable t, Applicative f) =&gt;
t a -&gt; (a -&gt; f b) -&gt; f (t b)
</span><a href="../../base/src/Data.Traversable.html#for"><span class="hs-identifier hs-var">for</span></a></span><span> </span><span class="annot"><span class="annottext">[(Char, [Char])]
</span><a href="#local-6989586621679073382"><span class="hs-identifier hs-var">pairs</span></a></span><span> </span><span class="annot"><span class="annottext">(((Char, [Char]) -&gt; Maybe [DayComponent])
 -&gt; Maybe [[DayComponent]])
-&gt; ((Char, [Char]) -&gt; Maybe [DayComponent])
-&gt; Maybe [[DayComponent]]
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="hs-glyph">\</span><span class="hs-special">(</span><span id="local-6989586621679073379"><span class="annot"><span class="annottext">Char
</span><a href="#local-6989586621679073379"><span class="hs-identifier hs-var">c</span></a></span></span><span class="hs-special">,</span><span id="local-6989586621679073378"><span class="annot"><span class="annottext">[Char]
</span><a href="#local-6989586621679073378"><span class="hs-identifier hs-var">x</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Char -&gt; [Char] -&gt; Maybe [DayComponent]
</span><a href="#local-6989586621679073482"><span class="hs-identifier hs-var">f</span></a></span><span> </span><span class="annot"><span class="annottext">Char
</span><a href="#local-6989586621679073379"><span class="hs-identifier hs-var">c</span></a></span><span> </span><span class="annot"><span class="annottext">[Char]
</span><a href="#local-6989586621679073378"><span class="hs-identifier hs-var">x</span></a></span><span>
</span><span id="line-178"></span><span>            </span><span class="annot"><span class="annottext">[DayComponent] -&gt; Maybe Day
</span><a href="#local-6989586621679073423"><span class="hs-identifier hs-var">buildDay</span></a></span><span> </span><span class="annot"><span class="annottext">([DayComponent] -&gt; Maybe Day) -&gt; [DayComponent] -&gt; Maybe Day
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">[[DayComponent]] -&gt; [DayComponent]
forall (t :: * -&gt; *) a. Foldable t =&gt; t [a] -&gt; [a]
</span><a href="../../base/src/Data.Foldable.html#concat"><span class="hs-identifier hs-var">concat</span></a></span><span> </span><span class="annot"><span class="annottext">[[DayComponent]]
</span><a href="#local-6989586621679073381"><span class="hs-identifier hs-var">components</span></a></span><span>
</span><span id="line-179"></span><span>
</span><span id="line-180"></span><span id="local-6989586621679073788"><span id="local-6989586621679073789"><span id="local-6989586621679073790"><span class="annot"><a href="Data.Time.Format.Parse.Instances.html#mfoldl"><span class="hs-identifier hs-type">mfoldl</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">(</span><span class="annot"><a href="../../base/src/GHC.Base.html#Monad"><span class="hs-identifier hs-type">Monad</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679073790"><span class="hs-identifier hs-type">m</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=&gt;</span><span> </span><span class="hs-special">(</span><span class="annot"><a href="#local-6989586621679073789"><span class="hs-identifier hs-type">a</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="#local-6989586621679073788"><span class="hs-identifier hs-type">b</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="#local-6989586621679073790"><span class="hs-identifier hs-type">m</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679073789"><span class="hs-identifier hs-type">a</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="#local-6989586621679073790"><span class="hs-identifier hs-type">m</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679073789"><span class="hs-identifier hs-type">a</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-special">[</span><span class="annot"><a href="#local-6989586621679073788"><span class="hs-identifier hs-type">b</span></a></span><span class="hs-special">]</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="#local-6989586621679073790"><span class="hs-identifier hs-type">m</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679073789"><span class="hs-identifier hs-type">a</span></a></span></span></span></span><span>
</span><span id="line-181"></span><span id="mfoldl"><span class="annot"><span class="annottext">mfoldl :: forall (m :: * -&gt; *) a b.
Monad m =&gt;
(a -&gt; b -&gt; m a) -&gt; m a -&gt; [b] -&gt; m a
</span><a href="Data.Time.Format.Parse.Instances.html#mfoldl"><span class="hs-identifier hs-var hs-var">mfoldl</span></a></span></span><span> </span><span id="local-6989586621679073373"><span class="annot"><span class="annottext">a -&gt; b -&gt; m a
</span><a href="#local-6989586621679073373"><span class="hs-identifier hs-var">f</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">let</span><span>
</span><span id="line-182"></span><span>    </span><span id="local-6989586621679073371"><span class="annot"><span class="annottext">mf :: m a -&gt; b -&gt; m a
</span><a href="#local-6989586621679073371"><span class="hs-identifier hs-var hs-var">mf</span></a></span></span><span> </span><span id="local-6989586621679073370"><span class="annot"><span class="annottext">m a
</span><a href="#local-6989586621679073370"><span class="hs-identifier hs-var">ma</span></a></span></span><span> </span><span id="local-6989586621679073369"><span class="annot"><span class="annottext">b
</span><a href="#local-6989586621679073369"><span class="hs-identifier hs-var">b</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">do</span><span>
</span><span id="line-183"></span><span>        </span><span id="local-6989586621679073368"><span class="annot"><span class="annottext">a
</span><a href="#local-6989586621679073368"><span class="hs-identifier hs-var">a</span></a></span></span><span> </span><span class="hs-glyph">&lt;-</span><span> </span><span class="annot"><span class="annottext">m a
</span><a href="#local-6989586621679073370"><span class="hs-identifier hs-var">ma</span></a></span><span>
</span><span id="line-184"></span><span>        </span><span class="annot"><span class="annottext">a -&gt; b -&gt; m a
</span><a href="#local-6989586621679073373"><span class="hs-identifier hs-var">f</span></a></span><span> </span><span class="annot"><span class="annottext">a
</span><a href="#local-6989586621679073368"><span class="hs-identifier hs-var">a</span></a></span><span> </span><span class="annot"><span class="annottext">b
</span><a href="#local-6989586621679073369"><span class="hs-identifier hs-var">b</span></a></span><span>
</span><span id="line-185"></span><span>    </span><span class="hs-keyword">in</span><span> </span><span class="annot"><span class="annottext">(m a -&gt; b -&gt; m a) -&gt; m a -&gt; [b] -&gt; m a
forall (t :: * -&gt; *) b a.
Foldable t =&gt;
(b -&gt; a -&gt; b) -&gt; b -&gt; t a -&gt; b
</span><a href="../../base/src/Data.Foldable.html#foldl"><span class="hs-identifier hs-var">foldl</span></a></span><span> </span><span class="annot"><span class="annottext">m a -&gt; b -&gt; m a
</span><a href="#local-6989586621679073371"><span class="hs-identifier hs-var">mf</span></a></span><span>
</span><span id="line-186"></span><span>
</span><span id="line-187"></span><span class="hs-keyword">instance</span><span> </span><span class="annot"><a href="Data.Time.Format.Parse.Class.html#ParseTime"><span class="hs-identifier hs-type">ParseTime</span></a></span><span> </span><span class="annot"><a href="Data.Time.LocalTime.Internal.TimeOfDay.html#TimeOfDay"><span class="hs-identifier hs-type">TimeOfDay</span></a></span><span> </span><span class="hs-keyword">where</span><span>
</span><span id="line-188"></span><span>    </span><span id="local-6989586621679073362"><span class="annot"><span class="annottext">substituteTimeSpecifier :: forall (proxy :: * -&gt; *).
proxy TimeOfDay -&gt; TimeLocale -&gt; Char -&gt; Maybe [Char]
</span><a href="#local-6989586621679073362"><span class="hs-identifier hs-var hs-var hs-var hs-var">substituteTimeSpecifier</span></a></span></span><span> </span><span class="annot"><span class="annottext">proxy TimeOfDay
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">TimeLocale -&gt; Char -&gt; Maybe [Char]
</span><a href="Data.Time.Format.Parse.Class.html#timeSubstituteTimeSpecifier"><span class="hs-identifier hs-var">timeSubstituteTimeSpecifier</span></a></span><span>
</span><span id="line-189"></span><span>    </span><span id="local-6989586621679073361"><span class="annot"><span class="annottext">parseTimeSpecifier :: forall (proxy :: * -&gt; *).
proxy TimeOfDay
-&gt; TimeLocale -&gt; Maybe ParseNumericPadding -&gt; Char -&gt; ReadP [Char]
</span><a href="#local-6989586621679073361"><span class="hs-identifier hs-var hs-var hs-var hs-var">parseTimeSpecifier</span></a></span></span><span> </span><span class="annot"><span class="annottext">proxy TimeOfDay
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">TimeLocale -&gt; Maybe ParseNumericPadding -&gt; Char -&gt; ReadP [Char]
</span><a href="Data.Time.Format.Parse.Class.html#timeParseTimeSpecifier"><span class="hs-identifier hs-var">timeParseTimeSpecifier</span></a></span><span>
</span><span id="line-190"></span><span>    </span><span id="local-6989586621679073359"><span class="annot"><span class="annottext">buildTime :: TimeLocale -&gt; [(Char, [Char])] -&gt; Maybe TimeOfDay
</span><a href="#local-6989586621679073359"><span class="hs-identifier hs-var hs-var hs-var hs-var">buildTime</span></a></span></span><span> </span><span id="local-6989586621679073358"><span class="annot"><span class="annottext">TimeLocale
</span><a href="#local-6989586621679073358"><span class="hs-identifier hs-var">l</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">let</span><span>
</span><span id="line-191"></span><span>        </span><span id="local-6989586621679073301"><span class="annot"><span class="annottext">f :: TimeOfDay -&gt; (Char, [Char]) -&gt; Maybe TimeOfDay
</span><a href="#local-6989586621679073301"><span class="hs-identifier hs-var hs-var">f</span></a></span></span><span> </span><span id="local-6989586621679073300"><span class="annot"><span class="annottext">t :: TimeOfDay
</span><a href="#local-6989586621679073300"><span class="hs-identifier hs-var">t</span></a></span></span><span class="hs-glyph">@</span><span class="hs-special">(</span><span class="annot"><a href="Data.Time.LocalTime.Internal.TimeOfDay.html#TimeOfDay"><span class="hs-identifier hs-type">TimeOfDay</span></a></span><span> </span><span id="local-6989586621679073298"><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679073298"><span class="hs-identifier hs-var">h</span></a></span></span><span> </span><span id="local-6989586621679073297"><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679073297"><span class="hs-identifier hs-var">m</span></a></span></span><span> </span><span id="local-6989586621679073296"><span class="annot"><span class="annottext">Pico
</span><a href="#local-6989586621679073296"><span class="hs-identifier hs-var">s</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span id="local-6989586621679073295"><span class="annot"><span class="annottext">Char
</span><a href="#local-6989586621679073295"><span class="hs-identifier hs-var">c</span></a></span></span><span class="hs-special">,</span><span id="local-6989586621679073294"><span class="annot"><span class="annottext">[Char]
</span><a href="#local-6989586621679073294"><span class="hs-identifier hs-var">x</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">let</span><span>
</span><span id="line-192"></span><span>            </span><span id="local-6989586621679073293"><span class="annot"><a href="#local-6989586621679073292"><span class="hs-identifier hs-type">ra</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">(</span><span class="annot"><a href="../../base/src/GHC.Read.html#Read"><span class="hs-identifier hs-type">Read</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679073293"><span class="hs-identifier hs-type">a</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=&gt;</span><span> </span><span class="annot"><a href="../../base/src/GHC.Maybe.html#Maybe"><span class="hs-identifier hs-type">Maybe</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679073293"><span class="hs-identifier hs-type">a</span></a></span></span><span>
</span><span id="line-193"></span><span>            </span><span id="local-6989586621679073292"><span class="annot"><span class="annottext">ra :: forall a. Read a =&gt; Maybe a
</span><a href="#local-6989586621679073292"><span class="hs-identifier hs-var hs-var">ra</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">[Char] -&gt; Maybe a
forall a. Read a =&gt; [Char] -&gt; Maybe a
</span><a href="../../base/src/Text.Read.html#readMaybe"><span class="hs-identifier hs-var">readMaybe</span></a></span><span> </span><span class="annot"><span class="annottext">[Char]
</span><a href="#local-6989586621679073294"><span class="hs-identifier hs-var">x</span></a></span><span>
</span><span id="line-194"></span><span>
</span><span id="line-195"></span><span>            </span><span id="local-6989586621679073280"><span class="annot"><span class="annottext">getAmPm :: Maybe TimeOfDay
</span><a href="#local-6989586621679073280"><span class="hs-identifier hs-var hs-var">getAmPm</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">let</span><span>
</span><span id="line-196"></span><span>                </span><span id="local-6989586621679073279"><span class="annot"><span class="annottext">upx :: [Char]
</span><a href="#local-6989586621679073279"><span class="hs-identifier hs-var hs-var">upx</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">(Char -&gt; Char) -&gt; [Char] -&gt; [Char]
forall a b. (a -&gt; b) -&gt; [a] -&gt; [b]
</span><a href="../../base/src/GHC.Base.html#map"><span class="hs-identifier hs-var">map</span></a></span><span> </span><span class="annot"><span class="annottext">Char -&gt; Char
</span><a href="../../base/src/GHC.Unicode.html#toUpper"><span class="hs-identifier hs-var">toUpper</span></a></span><span> </span><span class="annot"><span class="annottext">[Char]
</span><a href="#local-6989586621679073294"><span class="hs-identifier hs-var">x</span></a></span><span>
</span><span id="line-197"></span><span>                </span><span class="hs-special">(</span><span id="local-6989586621679073278"><span class="annot"><span class="annottext">[Char]
</span><a href="#local-6989586621679073278"><span class="hs-identifier hs-var">amStr</span></a></span></span><span class="hs-special">,</span><span id="local-6989586621679073277"><span class="annot"><span class="annottext">[Char]
</span><a href="#local-6989586621679073277"><span class="hs-identifier hs-var">pmStr</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">TimeLocale -&gt; ([Char], [Char])
</span><a href="Data.Time.Format.Locale.html#amPm"><span class="hs-identifier hs-var hs-var">amPm</span></a></span><span> </span><span class="annot"><span class="annottext">TimeLocale
</span><a href="#local-6989586621679073358"><span class="hs-identifier hs-var">l</span></a></span><span>
</span><span id="line-198"></span><span>                </span><span class="hs-keyword">in</span><span> </span><span class="hs-keyword">if</span><span> </span><span class="annot"><span class="annottext">[Char]
</span><a href="#local-6989586621679073279"><span class="hs-identifier hs-var">upx</span></a></span><span> </span><span class="annot"><span class="annottext">[Char] -&gt; [Char] -&gt; Bool
forall a. Eq a =&gt; a -&gt; a -&gt; Bool
</span><span class="hs-operator hs-var">==</span></span><span> </span><span class="annot"><span class="annottext">[Char]
</span><a href="#local-6989586621679073278"><span class="hs-identifier hs-var">amStr</span></a></span><span>
</span><span id="line-199"></span><span>                    </span><span class="hs-keyword">then</span><span> </span><span class="annot"><span class="annottext">TimeOfDay -&gt; Maybe TimeOfDay
forall a. a -&gt; Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-var">Just</span></a></span><span> </span><span class="annot"><span class="annottext">(TimeOfDay -&gt; Maybe TimeOfDay) -&gt; TimeOfDay -&gt; Maybe TimeOfDay
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">Int -&gt; Int -&gt; Pico -&gt; TimeOfDay
</span><a href="Data.Time.LocalTime.Internal.TimeOfDay.html#TimeOfDay"><span class="hs-identifier hs-var">TimeOfDay</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679073298"><span class="hs-identifier hs-var">h</span></a></span><span> </span><span class="annot"><span class="annottext">Int -&gt; Int -&gt; Int
forall a. Integral a =&gt; a -&gt; a -&gt; a
</span><a href="../../base/src/GHC.Real.html#mod"><span class="hs-operator hs-var">`mod`</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">12</span></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679073297"><span class="hs-identifier hs-var">m</span></a></span><span> </span><span class="annot"><span class="annottext">Pico
</span><a href="#local-6989586621679073296"><span class="hs-identifier hs-var">s</span></a></span><span>
</span><span id="line-200"></span><span>                    </span><span class="hs-keyword">else</span><span> </span><span class="hs-keyword">if</span><span> </span><span class="annot"><span class="annottext">[Char]
</span><a href="#local-6989586621679073279"><span class="hs-identifier hs-var">upx</span></a></span><span> </span><span class="annot"><span class="annottext">[Char] -&gt; [Char] -&gt; Bool
forall a. Eq a =&gt; a -&gt; a -&gt; Bool
</span><span class="hs-operator hs-var">==</span></span><span> </span><span class="annot"><span class="annottext">[Char]
</span><a href="#local-6989586621679073277"><span class="hs-identifier hs-var">pmStr</span></a></span><span>
</span><span id="line-201"></span><span>                    </span><span class="hs-keyword">then</span><span> </span><span class="annot"><span class="annottext">TimeOfDay -&gt; Maybe TimeOfDay
forall a. a -&gt; Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-var">Just</span></a></span><span> </span><span class="annot"><span class="annottext">(TimeOfDay -&gt; Maybe TimeOfDay) -&gt; TimeOfDay -&gt; Maybe TimeOfDay
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">Int -&gt; Int -&gt; Pico -&gt; TimeOfDay
</span><a href="Data.Time.LocalTime.Internal.TimeOfDay.html#TimeOfDay"><span class="hs-identifier hs-var">TimeOfDay</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-keyword">if</span><span> </span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679073298"><span class="hs-identifier hs-var">h</span></a></span><span> </span><span class="annot"><span class="annottext">Int -&gt; Int -&gt; Bool
forall a. Ord a =&gt; a -&gt; a -&gt; Bool
</span><span class="hs-operator hs-var">&lt;</span></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">12</span></span><span> </span><span class="hs-keyword">then</span><span> </span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679073298"><span class="hs-identifier hs-var">h</span></a></span><span> </span><span class="annot"><span class="annottext">Int -&gt; Int -&gt; Int
forall a. Num a =&gt; a -&gt; a -&gt; a
</span><a href="../../base/src/GHC.Num.html#%2B"><span class="hs-operator hs-var">+</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">12</span></span><span> </span><span class="hs-keyword">else</span><span> </span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679073298"><span class="hs-identifier hs-var">h</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679073297"><span class="hs-identifier hs-var">m</span></a></span><span> </span><span class="annot"><span class="annottext">Pico
</span><a href="#local-6989586621679073296"><span class="hs-identifier hs-var">s</span></a></span><span>
</span><span id="line-202"></span><span>                    </span><span class="hs-keyword">else</span><span> </span><span class="annot"><span class="annottext">Maybe TimeOfDay
forall a. Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Nothing"><span class="hs-identifier hs-var">Nothing</span></a></span><span>
</span><span id="line-203"></span><span>
</span><span id="line-204"></span><span>            </span><span class="hs-keyword">in</span><span> </span><span class="hs-keyword">case</span><span> </span><span class="annot"><span class="annottext">Char
</span><a href="#local-6989586621679073295"><span class="hs-identifier hs-var">c</span></a></span><span> </span><span class="hs-keyword">of</span><span>
</span><span id="line-205"></span><span>                </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'P'</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Maybe TimeOfDay
</span><a href="#local-6989586621679073280"><span class="hs-identifier hs-var">getAmPm</span></a></span><span>
</span><span id="line-206"></span><span>                </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'p'</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Maybe TimeOfDay
</span><a href="#local-6989586621679073280"><span class="hs-identifier hs-var">getAmPm</span></a></span><span>
</span><span id="line-207"></span><span>                </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'H'</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-keyword">do</span><span>
</span><span id="line-208"></span><span>                    </span><span id="local-6989586621679073274"><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679073274"><span class="hs-identifier hs-var">raw</span></a></span></span><span> </span><span class="hs-glyph">&lt;-</span><span> </span><span class="annot"><span class="annottext">Maybe Int
forall a. Read a =&gt; Maybe a
</span><a href="#local-6989586621679073292"><span class="hs-identifier hs-var">ra</span></a></span><span>
</span><span id="line-209"></span><span>                    </span><span id="local-6989586621679073273"><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679073273"><span class="hs-identifier hs-var">a</span></a></span></span><span> </span><span class="hs-glyph">&lt;-</span><span> </span><span class="annot"><span class="annottext">Int -&gt; Int -&gt; Int -&gt; Maybe Int
forall t. Ord t =&gt; t -&gt; t -&gt; t -&gt; Maybe t
</span><a href="Data.Time.Calendar.Private.html#clipValid"><span class="hs-identifier hs-var">clipValid</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">0</span></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">23</span></span><span> </span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679073274"><span class="hs-identifier hs-var">raw</span></a></span><span>
</span><span id="line-210"></span><span>                    </span><span class="annot"><span class="annottext">TimeOfDay -&gt; Maybe TimeOfDay
forall (m :: * -&gt; *) a. Monad m =&gt; a -&gt; m a
</span><a href="../../base/src/GHC.Base.html#return"><span class="hs-identifier hs-var">return</span></a></span><span> </span><span class="annot"><span class="annottext">(TimeOfDay -&gt; Maybe TimeOfDay) -&gt; TimeOfDay -&gt; Maybe TimeOfDay
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">Int -&gt; Int -&gt; Pico -&gt; TimeOfDay
</span><a href="Data.Time.LocalTime.Internal.TimeOfDay.html#TimeOfDay"><span class="hs-identifier hs-var">TimeOfDay</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679073273"><span class="hs-identifier hs-var">a</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679073297"><span class="hs-identifier hs-var">m</span></a></span><span> </span><span class="annot"><span class="annottext">Pico
</span><a href="#local-6989586621679073296"><span class="hs-identifier hs-var">s</span></a></span><span>
</span><span id="line-211"></span><span>                </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'I'</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-keyword">do</span><span>
</span><span id="line-212"></span><span>                    </span><span id="local-6989586621679073272"><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679073272"><span class="hs-identifier hs-var">raw</span></a></span></span><span> </span><span class="hs-glyph">&lt;-</span><span> </span><span class="annot"><span class="annottext">Maybe Int
forall a. Read a =&gt; Maybe a
</span><a href="#local-6989586621679073292"><span class="hs-identifier hs-var">ra</span></a></span><span>
</span><span id="line-213"></span><span>                    </span><span id="local-6989586621679073271"><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679073271"><span class="hs-identifier hs-var">a</span></a></span></span><span> </span><span class="hs-glyph">&lt;-</span><span> </span><span class="annot"><span class="annottext">Int -&gt; Int -&gt; Int -&gt; Maybe Int
forall t. Ord t =&gt; t -&gt; t -&gt; t -&gt; Maybe t
</span><a href="Data.Time.Calendar.Private.html#clipValid"><span class="hs-identifier hs-var">clipValid</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">1</span></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">12</span></span><span> </span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679073272"><span class="hs-identifier hs-var">raw</span></a></span><span>
</span><span id="line-214"></span><span>                    </span><span class="annot"><span class="annottext">TimeOfDay -&gt; Maybe TimeOfDay
forall (m :: * -&gt; *) a. Monad m =&gt; a -&gt; m a
</span><a href="../../base/src/GHC.Base.html#return"><span class="hs-identifier hs-var">return</span></a></span><span> </span><span class="annot"><span class="annottext">(TimeOfDay -&gt; Maybe TimeOfDay) -&gt; TimeOfDay -&gt; Maybe TimeOfDay
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">Int -&gt; Int -&gt; Pico -&gt; TimeOfDay
</span><a href="Data.Time.LocalTime.Internal.TimeOfDay.html#TimeOfDay"><span class="hs-identifier hs-var">TimeOfDay</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679073271"><span class="hs-identifier hs-var">a</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679073297"><span class="hs-identifier hs-var">m</span></a></span><span> </span><span class="annot"><span class="annottext">Pico
</span><a href="#local-6989586621679073296"><span class="hs-identifier hs-var">s</span></a></span><span>
</span><span id="line-215"></span><span>                </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'k'</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-keyword">do</span><span>
</span><span id="line-216"></span><span>                    </span><span id="local-6989586621679073270"><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679073270"><span class="hs-identifier hs-var">raw</span></a></span></span><span> </span><span class="hs-glyph">&lt;-</span><span> </span><span class="annot"><span class="annottext">Maybe Int
forall a. Read a =&gt; Maybe a
</span><a href="#local-6989586621679073292"><span class="hs-identifier hs-var">ra</span></a></span><span>
</span><span id="line-217"></span><span>                    </span><span id="local-6989586621679073269"><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679073269"><span class="hs-identifier hs-var">a</span></a></span></span><span> </span><span class="hs-glyph">&lt;-</span><span> </span><span class="annot"><span class="annottext">Int -&gt; Int -&gt; Int -&gt; Maybe Int
forall t. Ord t =&gt; t -&gt; t -&gt; t -&gt; Maybe t
</span><a href="Data.Time.Calendar.Private.html#clipValid"><span class="hs-identifier hs-var">clipValid</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">0</span></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">23</span></span><span> </span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679073270"><span class="hs-identifier hs-var">raw</span></a></span><span>
</span><span id="line-218"></span><span>                    </span><span class="annot"><span class="annottext">TimeOfDay -&gt; Maybe TimeOfDay
forall (m :: * -&gt; *) a. Monad m =&gt; a -&gt; m a
</span><a href="../../base/src/GHC.Base.html#return"><span class="hs-identifier hs-var">return</span></a></span><span> </span><span class="annot"><span class="annottext">(TimeOfDay -&gt; Maybe TimeOfDay) -&gt; TimeOfDay -&gt; Maybe TimeOfDay
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">Int -&gt; Int -&gt; Pico -&gt; TimeOfDay
</span><a href="Data.Time.LocalTime.Internal.TimeOfDay.html#TimeOfDay"><span class="hs-identifier hs-var">TimeOfDay</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679073269"><span class="hs-identifier hs-var">a</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679073297"><span class="hs-identifier hs-var">m</span></a></span><span> </span><span class="annot"><span class="annottext">Pico
</span><a href="#local-6989586621679073296"><span class="hs-identifier hs-var">s</span></a></span><span>
</span><span id="line-219"></span><span>                </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'l'</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-keyword">do</span><span>
</span><span id="line-220"></span><span>                    </span><span id="local-6989586621679073268"><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679073268"><span class="hs-identifier hs-var">raw</span></a></span></span><span> </span><span class="hs-glyph">&lt;-</span><span> </span><span class="annot"><span class="annottext">Maybe Int
forall a. Read a =&gt; Maybe a
</span><a href="#local-6989586621679073292"><span class="hs-identifier hs-var">ra</span></a></span><span>
</span><span id="line-221"></span><span>                    </span><span id="local-6989586621679073267"><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679073267"><span class="hs-identifier hs-var">a</span></a></span></span><span> </span><span class="hs-glyph">&lt;-</span><span> </span><span class="annot"><span class="annottext">Int -&gt; Int -&gt; Int -&gt; Maybe Int
forall t. Ord t =&gt; t -&gt; t -&gt; t -&gt; Maybe t
</span><a href="Data.Time.Calendar.Private.html#clipValid"><span class="hs-identifier hs-var">clipValid</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">1</span></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">12</span></span><span> </span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679073268"><span class="hs-identifier hs-var">raw</span></a></span><span>
</span><span id="line-222"></span><span>                    </span><span class="annot"><span class="annottext">TimeOfDay -&gt; Maybe TimeOfDay
forall (m :: * -&gt; *) a. Monad m =&gt; a -&gt; m a
</span><a href="../../base/src/GHC.Base.html#return"><span class="hs-identifier hs-var">return</span></a></span><span> </span><span class="annot"><span class="annottext">(TimeOfDay -&gt; Maybe TimeOfDay) -&gt; TimeOfDay -&gt; Maybe TimeOfDay
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">Int -&gt; Int -&gt; Pico -&gt; TimeOfDay
</span><a href="Data.Time.LocalTime.Internal.TimeOfDay.html#TimeOfDay"><span class="hs-identifier hs-var">TimeOfDay</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679073267"><span class="hs-identifier hs-var">a</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679073297"><span class="hs-identifier hs-var">m</span></a></span><span> </span><span class="annot"><span class="annottext">Pico
</span><a href="#local-6989586621679073296"><span class="hs-identifier hs-var">s</span></a></span><span>
</span><span id="line-223"></span><span>                </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'M'</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-keyword">do</span><span>
</span><span id="line-224"></span><span>                    </span><span id="local-6989586621679073266"><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679073266"><span class="hs-identifier hs-var">raw</span></a></span></span><span> </span><span class="hs-glyph">&lt;-</span><span> </span><span class="annot"><span class="annottext">Maybe Int
forall a. Read a =&gt; Maybe a
</span><a href="#local-6989586621679073292"><span class="hs-identifier hs-var">ra</span></a></span><span>
</span><span id="line-225"></span><span>                    </span><span id="local-6989586621679073265"><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679073265"><span class="hs-identifier hs-var">a</span></a></span></span><span> </span><span class="hs-glyph">&lt;-</span><span> </span><span class="annot"><span class="annottext">Int -&gt; Int -&gt; Int -&gt; Maybe Int
forall t. Ord t =&gt; t -&gt; t -&gt; t -&gt; Maybe t
</span><a href="Data.Time.Calendar.Private.html#clipValid"><span class="hs-identifier hs-var">clipValid</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">0</span></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">59</span></span><span> </span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679073266"><span class="hs-identifier hs-var">raw</span></a></span><span>
</span><span id="line-226"></span><span>                    </span><span class="annot"><span class="annottext">TimeOfDay -&gt; Maybe TimeOfDay
forall (m :: * -&gt; *) a. Monad m =&gt; a -&gt; m a
</span><a href="../../base/src/GHC.Base.html#return"><span class="hs-identifier hs-var">return</span></a></span><span> </span><span class="annot"><span class="annottext">(TimeOfDay -&gt; Maybe TimeOfDay) -&gt; TimeOfDay -&gt; Maybe TimeOfDay
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">Int -&gt; Int -&gt; Pico -&gt; TimeOfDay
</span><a href="Data.Time.LocalTime.Internal.TimeOfDay.html#TimeOfDay"><span class="hs-identifier hs-var">TimeOfDay</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679073298"><span class="hs-identifier hs-var">h</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679073265"><span class="hs-identifier hs-var">a</span></a></span><span> </span><span class="annot"><span class="annottext">Pico
</span><a href="#local-6989586621679073296"><span class="hs-identifier hs-var">s</span></a></span><span>
</span><span id="line-227"></span><span>                </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'S'</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-keyword">do</span><span>
</span><span id="line-228"></span><span>                    </span><span id="local-6989586621679073264"><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621679073264"><span class="hs-identifier hs-var">raw</span></a></span></span><span> </span><span class="hs-glyph">&lt;-</span><span> </span><span class="annot"><span class="annottext">Maybe Integer
forall a. Read a =&gt; Maybe a
</span><a href="#local-6989586621679073292"><span class="hs-identifier hs-var">ra</span></a></span><span>
</span><span id="line-229"></span><span>                    </span><span id="local-6989586621679073263"><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621679073263"><span class="hs-identifier hs-var">a</span></a></span></span><span> </span><span class="hs-glyph">&lt;-</span><span> </span><span class="annot"><span class="annottext">Integer -&gt; Integer -&gt; Integer -&gt; Maybe Integer
forall t. Ord t =&gt; t -&gt; t -&gt; t -&gt; Maybe t
</span><a href="Data.Time.Calendar.Private.html#clipValid"><span class="hs-identifier hs-var">clipValid</span></a></span><span> </span><span class="annot"><span class="annottext">Integer
</span><span class="hs-number">0</span></span><span> </span><span class="annot"><span class="annottext">Integer
</span><span class="hs-number">60</span></span><span> </span><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621679073264"><span class="hs-identifier hs-var">raw</span></a></span><span>
</span><span id="line-230"></span><span>                    </span><span class="annot"><span class="annottext">TimeOfDay -&gt; Maybe TimeOfDay
forall (m :: * -&gt; *) a. Monad m =&gt; a -&gt; m a
</span><a href="../../base/src/GHC.Base.html#return"><span class="hs-identifier hs-var">return</span></a></span><span> </span><span class="annot"><span class="annottext">(TimeOfDay -&gt; Maybe TimeOfDay) -&gt; TimeOfDay -&gt; Maybe TimeOfDay
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">Int -&gt; Int -&gt; Pico -&gt; TimeOfDay
</span><a href="Data.Time.LocalTime.Internal.TimeOfDay.html#TimeOfDay"><span class="hs-identifier hs-var">TimeOfDay</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679073298"><span class="hs-identifier hs-var">h</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679073297"><span class="hs-identifier hs-var">m</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Integer -&gt; Pico
forall a. Num a =&gt; Integer -&gt; a
</span><a href="../../base/src/GHC.Num.html#fromInteger"><span class="hs-identifier hs-var">fromInteger</span></a></span><span> </span><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621679073263"><span class="hs-identifier hs-var">a</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-231"></span><span>                </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'q'</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-keyword">do</span><span>
</span><span id="line-232"></span><span>                    </span><span id="local-6989586621679073262"><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621679073262"><span class="hs-identifier hs-var">a</span></a></span></span><span> </span><span class="hs-glyph">&lt;-</span><span> </span><span class="annot"><span class="annottext">Maybe Integer
forall a. Read a =&gt; Maybe a
</span><a href="#local-6989586621679073292"><span class="hs-identifier hs-var">ra</span></a></span><span>
</span><span id="line-233"></span><span>                    </span><span class="annot"><span class="annottext">TimeOfDay -&gt; Maybe TimeOfDay
forall (m :: * -&gt; *) a. Monad m =&gt; a -&gt; m a
</span><a href="../../base/src/GHC.Base.html#return"><span class="hs-identifier hs-var">return</span></a></span><span> </span><span class="annot"><span class="annottext">(TimeOfDay -&gt; Maybe TimeOfDay) -&gt; TimeOfDay -&gt; Maybe TimeOfDay
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">Int -&gt; Int -&gt; Pico -&gt; TimeOfDay
</span><a href="Data.Time.LocalTime.Internal.TimeOfDay.html#TimeOfDay"><span class="hs-identifier hs-var">TimeOfDay</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679073298"><span class="hs-identifier hs-var">h</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679073297"><span class="hs-identifier hs-var">m</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Integer -&gt; Integer -&gt; Pico
</span><a href="Data.Time.Format.Parse.Instances.html#mkPico"><span class="hs-identifier hs-var">mkPico</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Pico -&gt; Integer
forall a b. (RealFrac a, Integral b) =&gt; a -&gt; b
</span><a href="../../base/src/GHC.Real.html#floor"><span class="hs-identifier hs-var">floor</span></a></span><span> </span><span class="annot"><span class="annottext">Pico
</span><a href="#local-6989586621679073296"><span class="hs-identifier hs-var">s</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621679073262"><span class="hs-identifier hs-var">a</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-234"></span><span>                </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'Q'</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-keyword">if</span><span> </span><span class="annot"><span class="annottext">[Char] -&gt; Bool
forall (t :: * -&gt; *) a. Foldable t =&gt; t a -&gt; Bool
</span><a href="../../base/src/Data.Foldable.html#null"><span class="hs-identifier hs-var">null</span></a></span><span> </span><span class="annot"><span class="annottext">[Char]
</span><a href="#local-6989586621679073294"><span class="hs-identifier hs-var">x</span></a></span><span> </span><span class="hs-keyword">then</span><span> </span><span class="annot"><span class="annottext">TimeOfDay -&gt; Maybe TimeOfDay
forall a. a -&gt; Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-var">Just</span></a></span><span> </span><span class="annot"><span class="annottext">TimeOfDay
</span><a href="#local-6989586621679073300"><span class="hs-identifier hs-var">t</span></a></span><span> </span><span class="hs-keyword">else</span><span> </span><span class="hs-keyword">do</span><span>
</span><span id="line-235"></span><span>                    </span><span id="local-6989586621679073258"><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621679073258"><span class="hs-identifier hs-var">ps</span></a></span></span><span> </span><span class="hs-glyph">&lt;-</span><span> </span><span class="annot"><span class="annottext">[Char] -&gt; Maybe Integer
forall a. Read a =&gt; [Char] -&gt; Maybe a
</span><a href="../../base/src/Text.Read.html#readMaybe"><span class="hs-identifier hs-var">readMaybe</span></a></span><span> </span><span class="annot"><span class="annottext">([Char] -&gt; Maybe Integer) -&gt; [Char] -&gt; Maybe Integer
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">Int -&gt; [Char] -&gt; [Char]
forall a. Int -&gt; [a] -&gt; [a]
</span><a href="../../base/src/GHC.List.html#take"><span class="hs-identifier hs-var">take</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">12</span></span><span> </span><span class="annot"><span class="annottext">([Char] -&gt; [Char]) -&gt; [Char] -&gt; [Char]
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">Int -&gt; Char -&gt; [Char] -&gt; [Char]
forall a. Int -&gt; a -&gt; [a] -&gt; [a]
</span><a href="Data.Time.Format.Parse.Instances.html#rpad"><span class="hs-identifier hs-var">rpad</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">12</span></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'0'</span></span><span> </span><span class="annot"><span class="annottext">([Char] -&gt; [Char]) -&gt; [Char] -&gt; [Char]
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">Int -&gt; [Char] -&gt; [Char]
forall a. Int -&gt; [a] -&gt; [a]
</span><a href="../../base/src/GHC.List.html#drop"><span class="hs-identifier hs-var">drop</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">1</span></span><span> </span><span class="annot"><span class="annottext">[Char]
</span><a href="#local-6989586621679073294"><span class="hs-identifier hs-var">x</span></a></span><span>
</span><span id="line-236"></span><span>                    </span><span class="annot"><span class="annottext">TimeOfDay -&gt; Maybe TimeOfDay
forall (m :: * -&gt; *) a. Monad m =&gt; a -&gt; m a
</span><a href="../../base/src/GHC.Base.html#return"><span class="hs-identifier hs-var">return</span></a></span><span> </span><span class="annot"><span class="annottext">(TimeOfDay -&gt; Maybe TimeOfDay) -&gt; TimeOfDay -&gt; Maybe TimeOfDay
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">Int -&gt; Int -&gt; Pico -&gt; TimeOfDay
</span><a href="Data.Time.LocalTime.Internal.TimeOfDay.html#TimeOfDay"><span class="hs-identifier hs-var">TimeOfDay</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679073298"><span class="hs-identifier hs-var">h</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679073297"><span class="hs-identifier hs-var">m</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Integer -&gt; Integer -&gt; Pico
</span><a href="Data.Time.Format.Parse.Instances.html#mkPico"><span class="hs-identifier hs-var">mkPico</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Pico -&gt; Integer
forall a b. (RealFrac a, Integral b) =&gt; a -&gt; b
</span><a href="../../base/src/GHC.Real.html#floor"><span class="hs-identifier hs-var">floor</span></a></span><span> </span><span class="annot"><span class="annottext">Pico
</span><a href="#local-6989586621679073296"><span class="hs-identifier hs-var">s</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621679073258"><span class="hs-identifier hs-var">ps</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-237"></span><span>                </span><span class="annot"><span class="annottext">Char
</span><span class="hs-identifier">_</span></span><span>   </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">TimeOfDay -&gt; Maybe TimeOfDay
forall a. a -&gt; Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-var">Just</span></a></span><span> </span><span class="annot"><span class="annottext">TimeOfDay
</span><a href="#local-6989586621679073300"><span class="hs-identifier hs-var">t</span></a></span><span>
</span><span id="line-238"></span><span>
</span><span id="line-239"></span><span>        </span><span class="hs-keyword">in</span><span> </span><span class="annot"><span class="annottext">(TimeOfDay -&gt; (Char, [Char]) -&gt; Maybe TimeOfDay)
-&gt; Maybe TimeOfDay -&gt; [(Char, [Char])] -&gt; Maybe TimeOfDay
forall (m :: * -&gt; *) a b.
Monad m =&gt;
(a -&gt; b -&gt; m a) -&gt; m a -&gt; [b] -&gt; m a
</span><a href="Data.Time.Format.Parse.Instances.html#mfoldl"><span class="hs-identifier hs-var">mfoldl</span></a></span><span> </span><span class="annot"><span class="annottext">TimeOfDay -&gt; (Char, [Char]) -&gt; Maybe TimeOfDay
</span><a href="#local-6989586621679073301"><span class="hs-identifier hs-var">f</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">TimeOfDay -&gt; Maybe TimeOfDay
forall a. a -&gt; Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-var">Just</span></a></span><span> </span><span class="annot"><span class="annottext">TimeOfDay
</span><a href="Data.Time.LocalTime.Internal.TimeOfDay.html#midnight"><span class="hs-identifier hs-var">midnight</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-240"></span><span>
</span><span id="line-241"></span><span id="local-6989586621679073771"><span class="annot"><a href="Data.Time.Format.Parse.Instances.html#rpad"><span class="hs-identifier hs-type">rpad</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Int</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="#local-6989586621679073771"><span class="hs-identifier hs-type">a</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-special">[</span><span class="annot"><a href="#local-6989586621679073771"><span class="hs-identifier hs-type">a</span></a></span><span class="hs-special">]</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-special">[</span><span class="annot"><a href="#local-6989586621679073771"><span class="hs-identifier hs-type">a</span></a></span><span class="hs-special">]</span></span><span>
</span><span id="line-242"></span><span id="rpad"><span class="annot"><span class="annottext">rpad :: forall a. Int -&gt; a -&gt; [a] -&gt; [a]
</span><a href="Data.Time.Format.Parse.Instances.html#rpad"><span class="hs-identifier hs-var hs-var">rpad</span></a></span></span><span> </span><span id="local-6989586621679073251"><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679073251"><span class="hs-identifier hs-var">n</span></a></span></span><span> </span><span id="local-6989586621679073250"><span class="annot"><span class="annottext">a
</span><a href="#local-6989586621679073250"><span class="hs-identifier hs-var">c</span></a></span></span><span> </span><span id="local-6989586621679073249"><span class="annot"><span class="annottext">[a]
</span><a href="#local-6989586621679073249"><span class="hs-identifier hs-var">xs</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">[a]
</span><a href="#local-6989586621679073249"><span class="hs-identifier hs-var">xs</span></a></span><span> </span><span class="annot"><span class="annottext">[a] -&gt; [a] -&gt; [a]
forall a. [a] -&gt; [a] -&gt; [a]
</span><a href="../../base/src/GHC.Base.html#%2B%2B"><span class="hs-operator hs-var">++</span></a></span><span> </span><span class="annot"><span class="annottext">Int -&gt; a -&gt; [a]
forall a. Int -&gt; a -&gt; [a]
</span><a href="../../base/src/GHC.List.html#replicate"><span class="hs-identifier hs-var">replicate</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679073251"><span class="hs-identifier hs-var">n</span></a></span><span> </span><span class="annot"><span class="annottext">Int -&gt; Int -&gt; Int
forall a. Num a =&gt; a -&gt; a -&gt; a
</span><a href="../../base/src/GHC.Num.html#-"><span class="hs-glyph hs-var">-</span></a></span><span> </span><span class="annot"><span class="annottext">[a] -&gt; Int
forall (t :: * -&gt; *) a. Foldable t =&gt; t a -&gt; Int
</span><a href="../../base/src/Data.Foldable.html#length"><span class="hs-identifier hs-var">length</span></a></span><span> </span><span class="annot"><span class="annottext">[a]
</span><a href="#local-6989586621679073249"><span class="hs-identifier hs-var">xs</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">a
</span><a href="#local-6989586621679073250"><span class="hs-identifier hs-var">c</span></a></span><span>
</span><span id="line-243"></span><span>
</span><span id="line-244"></span><span class="annot"><a href="Data.Time.Format.Parse.Instances.html#mkPico"><span class="hs-identifier hs-type">mkPico</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Integer</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Integer</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="../../base/src/Data.Fixed.html#Pico"><span class="hs-identifier hs-type">Pico</span></a></span><span>
</span><span id="line-245"></span><span id="mkPico"><span class="annot"><span class="annottext">mkPico :: Integer -&gt; Integer -&gt; Pico
</span><a href="Data.Time.Format.Parse.Instances.html#mkPico"><span class="hs-identifier hs-var hs-var">mkPico</span></a></span></span><span> </span><span id="local-6989586621679073246"><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621679073246"><span class="hs-identifier hs-var">i</span></a></span></span><span> </span><span id="local-6989586621679073245"><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621679073245"><span class="hs-identifier hs-var">f</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Integer -&gt; Pico
forall a. Num a =&gt; Integer -&gt; a
</span><a href="../../base/src/GHC.Num.html#fromInteger"><span class="hs-identifier hs-var">fromInteger</span></a></span><span> </span><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621679073246"><span class="hs-identifier hs-var">i</span></a></span><span> </span><span class="annot"><span class="annottext">Pico -&gt; Pico -&gt; Pico
forall a. Num a =&gt; a -&gt; a -&gt; a
</span><a href="../../base/src/GHC.Num.html#%2B"><span class="hs-operator hs-var">+</span></a></span><span> </span><span class="annot"><span class="annottext">Rational -&gt; Pico
forall a. Fractional a =&gt; Rational -&gt; a
</span><a href="../../base/src/GHC.Real.html#fromRational"><span class="hs-identifier hs-var">fromRational</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621679073245"><span class="hs-identifier hs-var">f</span></a></span><span> </span><span class="annot"><span class="annottext">Integer -&gt; Integer -&gt; Rational
forall a. Integral a =&gt; a -&gt; a -&gt; Ratio a
</span><a href="../../base/src/GHC.Real.html#%25"><span class="hs-operator hs-var">%</span></a></span><span> </span><span class="annot"><span class="annottext">Integer
</span><span class="hs-number">1000000000000</span></span><span class="hs-special">)</span><span>
</span><span id="line-246"></span><span>
</span><span id="line-247"></span><span class="hs-keyword">instance</span><span> </span><span class="annot"><a href="Data.Time.Format.Parse.Class.html#ParseTime"><span class="hs-identifier hs-type">ParseTime</span></a></span><span> </span><span class="annot"><a href="Data.Time.LocalTime.Internal.LocalTime.html#LocalTime"><span class="hs-identifier hs-type">LocalTime</span></a></span><span> </span><span class="hs-keyword">where</span><span>
</span><span id="line-248"></span><span>    </span><span id="local-6989586621679073239"><span class="annot"><span class="annottext">substituteTimeSpecifier :: forall (proxy :: * -&gt; *).
proxy LocalTime -&gt; TimeLocale -&gt; Char -&gt; Maybe [Char]
</span><a href="#local-6989586621679073239"><span class="hs-identifier hs-var hs-var hs-var hs-var">substituteTimeSpecifier</span></a></span></span><span> </span><span class="annot"><span class="annottext">proxy LocalTime
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">TimeLocale -&gt; Char -&gt; Maybe [Char]
</span><a href="Data.Time.Format.Parse.Class.html#timeSubstituteTimeSpecifier"><span class="hs-identifier hs-var">timeSubstituteTimeSpecifier</span></a></span><span>
</span><span id="line-249"></span><span>    </span><span id="local-6989586621679073238"><span class="annot"><span class="annottext">parseTimeSpecifier :: forall (proxy :: * -&gt; *).
proxy LocalTime
-&gt; TimeLocale -&gt; Maybe ParseNumericPadding -&gt; Char -&gt; ReadP [Char]
</span><a href="#local-6989586621679073238"><span class="hs-identifier hs-var hs-var hs-var hs-var">parseTimeSpecifier</span></a></span></span><span> </span><span class="annot"><span class="annottext">proxy LocalTime
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">TimeLocale -&gt; Maybe ParseNumericPadding -&gt; Char -&gt; ReadP [Char]
</span><a href="Data.Time.Format.Parse.Class.html#timeParseTimeSpecifier"><span class="hs-identifier hs-var">timeParseTimeSpecifier</span></a></span><span>
</span><span id="line-250"></span><span>    </span><span id="local-6989586621679073233"><span class="annot"><span class="annottext">buildTime :: TimeLocale -&gt; [(Char, [Char])] -&gt; Maybe LocalTime
</span><a href="#local-6989586621679073233"><span class="hs-identifier hs-var hs-var hs-var hs-var">buildTime</span></a></span></span><span> </span><span id="local-6989586621679073232"><span class="annot"><span class="annottext">TimeLocale
</span><a href="#local-6989586621679073232"><span class="hs-identifier hs-var">l</span></a></span></span><span> </span><span id="local-6989586621679073231"><span class="annot"><span class="annottext">[(Char, [Char])]
</span><a href="#local-6989586621679073231"><span class="hs-identifier hs-var">xs</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Day -&gt; TimeOfDay -&gt; LocalTime
</span><a href="Data.Time.LocalTime.Internal.LocalTime.html#LocalTime"><span class="hs-identifier hs-var">LocalTime</span></a></span><span> </span><span class="annot"><span class="annottext">(Day -&gt; TimeOfDay -&gt; LocalTime)
-&gt; Maybe Day -&gt; Maybe (TimeOfDay -&gt; LocalTime)
forall (f :: * -&gt; *) a b. Functor f =&gt; (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="../../base/src/Data.Functor.html#%3C%24%3E"><span class="hs-operator hs-var">&lt;$&gt;</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">TimeLocale -&gt; [(Char, [Char])] -&gt; Maybe Day
forall t. ParseTime t =&gt; TimeLocale -&gt; [(Char, [Char])] -&gt; Maybe t
</span><a href="Data.Time.Format.Parse.Class.html#buildTime"><span class="hs-identifier hs-var">buildTime</span></a></span><span> </span><span class="annot"><span class="annottext">TimeLocale
</span><a href="#local-6989586621679073232"><span class="hs-identifier hs-var">l</span></a></span><span> </span><span class="annot"><span class="annottext">[(Char, [Char])]
</span><a href="#local-6989586621679073231"><span class="hs-identifier hs-var">xs</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">Maybe (TimeOfDay -&gt; LocalTime)
-&gt; Maybe TimeOfDay -&gt; Maybe LocalTime
forall (f :: * -&gt; *) a b. Applicative f =&gt; f (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="../../base/src/GHC.Base.html#%3C%2A%3E"><span class="hs-operator hs-var">&lt;*&gt;</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">TimeLocale -&gt; [(Char, [Char])] -&gt; Maybe TimeOfDay
forall t. ParseTime t =&gt; TimeLocale -&gt; [(Char, [Char])] -&gt; Maybe t
</span><a href="Data.Time.Format.Parse.Class.html#buildTime"><span class="hs-identifier hs-var">buildTime</span></a></span><span> </span><span class="annot"><span class="annottext">TimeLocale
</span><a href="#local-6989586621679073232"><span class="hs-identifier hs-var">l</span></a></span><span> </span><span class="annot"><span class="annottext">[(Char, [Char])]
</span><a href="#local-6989586621679073231"><span class="hs-identifier hs-var">xs</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-251"></span><span>
</span><span id="line-252"></span><span id="local-6989586621679073755"><span class="annot"><a href="Data.Time.Format.Parse.Instances.html#enumDiff"><span class="hs-identifier hs-type">enumDiff</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">(</span><span class="annot"><a href="../../base/src/GHC.Enum.html#Enum"><span class="hs-identifier hs-type">Enum</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679073755"><span class="hs-identifier hs-type">a</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=&gt;</span><span> </span><span class="annot"><a href="#local-6989586621679073755"><span class="hs-identifier hs-type">a</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="#local-6989586621679073755"><span class="hs-identifier hs-type">a</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Int</span></span></span><span>
</span><span id="line-253"></span><span id="enumDiff"><span class="annot"><span class="annottext">enumDiff :: forall a. Enum a =&gt; a -&gt; a -&gt; Int
</span><a href="Data.Time.Format.Parse.Instances.html#enumDiff"><span class="hs-identifier hs-var hs-var">enumDiff</span></a></span></span><span> </span><span id="local-6989586621679073223"><span class="annot"><span class="annottext">a
</span><a href="#local-6989586621679073223"><span class="hs-identifier hs-var">a</span></a></span></span><span> </span><span id="local-6989586621679073222"><span class="annot"><span class="annottext">a
</span><a href="#local-6989586621679073222"><span class="hs-identifier hs-var">b</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">a -&gt; Int
forall a. Enum a =&gt; a -&gt; Int
</span><a href="../../base/src/GHC.Enum.html#fromEnum"><span class="hs-identifier hs-var">fromEnum</span></a></span><span> </span><span class="annot"><span class="annottext">a
</span><a href="#local-6989586621679073223"><span class="hs-identifier hs-var">a</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">Int -&gt; Int -&gt; Int
forall a. Num a =&gt; a -&gt; a -&gt; a
</span><a href="../../base/src/GHC.Num.html#-"><span class="hs-glyph hs-var">-</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">a -&gt; Int
forall a. Enum a =&gt; a -&gt; Int
</span><a href="../../base/src/GHC.Enum.html#fromEnum"><span class="hs-identifier hs-var">fromEnum</span></a></span><span> </span><span class="annot"><span class="annottext">a
</span><a href="#local-6989586621679073222"><span class="hs-identifier hs-var">b</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-254"></span><span>
</span><span id="line-255"></span><span class="annot"><a href="Data.Time.Format.Parse.Instances.html#getMilZoneHours"><span class="hs-identifier hs-type">getMilZoneHours</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Char</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="../../base/src/GHC.Maybe.html#Maybe"><span class="hs-identifier hs-type">Maybe</span></a></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Int</span></span><span>
</span><span id="line-256"></span><span id="getMilZoneHours"><span class="annot"><span class="annottext">getMilZoneHours :: Char -&gt; Maybe Int
</span><a href="Data.Time.Format.Parse.Instances.html#getMilZoneHours"><span class="hs-identifier hs-var hs-var">getMilZoneHours</span></a></span></span><span> </span><span id="local-6989586621679073219"><span class="annot"><span class="annottext">Char
</span><a href="#local-6989586621679073219"><span class="hs-identifier hs-var">c</span></a></span></span><span> </span><span class="hs-glyph">|</span><span> </span><span class="annot"><span class="annottext">Char
</span><a href="#local-6989586621679073219"><span class="hs-identifier hs-var">c</span></a></span><span> </span><span class="annot"><span class="annottext">Char -&gt; Char -&gt; Bool
forall a. Ord a =&gt; a -&gt; a -&gt; Bool
</span><span class="hs-operator hs-var">&lt;</span></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'A'</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Maybe Int
forall a. Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Nothing"><span class="hs-identifier hs-var">Nothing</span></a></span><span>
</span><span id="line-257"></span><span class="annot"><a href="Data.Time.Format.Parse.Instances.html#getMilZoneHours"><span class="hs-identifier hs-var">getMilZoneHours</span></a></span><span> </span><span id="local-6989586621679073218"><span class="annot"><span class="annottext">Char
</span><a href="#local-6989586621679073218"><span class="hs-identifier hs-var">c</span></a></span></span><span> </span><span class="hs-glyph">|</span><span> </span><span class="annot"><span class="annottext">Char
</span><a href="#local-6989586621679073218"><span class="hs-identifier hs-var">c</span></a></span><span> </span><span class="annot"><span class="annottext">Char -&gt; Char -&gt; Bool
forall a. Ord a =&gt; a -&gt; a -&gt; Bool
</span><span class="hs-operator hs-var">&lt;=</span></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'I'</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Int -&gt; Maybe Int
forall a. a -&gt; Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-var">Just</span></a></span><span> </span><span class="annot"><span class="annottext">(Int -&gt; Maybe Int) -&gt; Int -&gt; Maybe Int
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">1</span></span><span> </span><span class="annot"><span class="annottext">Int -&gt; Int -&gt; Int
forall a. Num a =&gt; a -&gt; a -&gt; a
</span><a href="../../base/src/GHC.Num.html#%2B"><span class="hs-operator hs-var">+</span></a></span><span> </span><span class="annot"><span class="annottext">Char -&gt; Char -&gt; Int
forall a. Enum a =&gt; a -&gt; a -&gt; Int
</span><a href="Data.Time.Format.Parse.Instances.html#enumDiff"><span class="hs-identifier hs-var">enumDiff</span></a></span><span> </span><span class="annot"><span class="annottext">Char
</span><a href="#local-6989586621679073218"><span class="hs-identifier hs-var">c</span></a></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'A'</span></span><span>
</span><span id="line-258"></span><span class="annot"><a href="Data.Time.Format.Parse.Instances.html#getMilZoneHours"><span class="hs-identifier hs-var">getMilZoneHours</span></a></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'J'</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Maybe Int
forall a. Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Nothing"><span class="hs-identifier hs-var">Nothing</span></a></span><span>
</span><span id="line-259"></span><span class="annot"><a href="Data.Time.Format.Parse.Instances.html#getMilZoneHours"><span class="hs-identifier hs-var">getMilZoneHours</span></a></span><span> </span><span id="local-6989586621679073216"><span class="annot"><span class="annottext">Char
</span><a href="#local-6989586621679073216"><span class="hs-identifier hs-var">c</span></a></span></span><span> </span><span class="hs-glyph">|</span><span> </span><span class="annot"><span class="annottext">Char
</span><a href="#local-6989586621679073216"><span class="hs-identifier hs-var">c</span></a></span><span> </span><span class="annot"><span class="annottext">Char -&gt; Char -&gt; Bool
forall a. Ord a =&gt; a -&gt; a -&gt; Bool
</span><span class="hs-operator hs-var">&lt;=</span></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'M'</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Int -&gt; Maybe Int
forall a. a -&gt; Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-var">Just</span></a></span><span> </span><span class="annot"><span class="annottext">(Int -&gt; Maybe Int) -&gt; Int -&gt; Maybe Int
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">10</span></span><span> </span><span class="annot"><span class="annottext">Int -&gt; Int -&gt; Int
forall a. Num a =&gt; a -&gt; a -&gt; a
</span><a href="../../base/src/GHC.Num.html#%2B"><span class="hs-operator hs-var">+</span></a></span><span> </span><span class="annot"><span class="annottext">Char -&gt; Char -&gt; Int
forall a. Enum a =&gt; a -&gt; a -&gt; Int
</span><a href="Data.Time.Format.Parse.Instances.html#enumDiff"><span class="hs-identifier hs-var">enumDiff</span></a></span><span> </span><span class="annot"><span class="annottext">Char
</span><a href="#local-6989586621679073216"><span class="hs-identifier hs-var">c</span></a></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'K'</span></span><span>
</span><span id="line-260"></span><span class="annot"><a href="Data.Time.Format.Parse.Instances.html#getMilZoneHours"><span class="hs-identifier hs-var">getMilZoneHours</span></a></span><span> </span><span id="local-6989586621679073215"><span class="annot"><span class="annottext">Char
</span><a href="#local-6989586621679073215"><span class="hs-identifier hs-var">c</span></a></span></span><span> </span><span class="hs-glyph">|</span><span> </span><span class="annot"><span class="annottext">Char
</span><a href="#local-6989586621679073215"><span class="hs-identifier hs-var">c</span></a></span><span> </span><span class="annot"><span class="annottext">Char -&gt; Char -&gt; Bool
forall a. Ord a =&gt; a -&gt; a -&gt; Bool
</span><span class="hs-operator hs-var">&lt;=</span></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'Y'</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Int -&gt; Maybe Int
forall a. a -&gt; Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-var">Just</span></a></span><span> </span><span class="annot"><span class="annottext">(Int -&gt; Maybe Int) -&gt; Int -&gt; Maybe Int
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Char -&gt; Char -&gt; Int
forall a. Enum a =&gt; a -&gt; a -&gt; Int
</span><a href="Data.Time.Format.Parse.Instances.html#enumDiff"><span class="hs-identifier hs-var">enumDiff</span></a></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'N'</span></span><span> </span><span class="annot"><span class="annottext">Char
</span><a href="#local-6989586621679073215"><span class="hs-identifier hs-var">c</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">Int -&gt; Int -&gt; Int
forall a. Num a =&gt; a -&gt; a -&gt; a
</span><a href="../../base/src/GHC.Num.html#-"><span class="hs-glyph hs-var">-</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">1</span></span><span>
</span><span id="line-261"></span><span class="annot"><a href="Data.Time.Format.Parse.Instances.html#getMilZoneHours"><span class="hs-identifier hs-var">getMilZoneHours</span></a></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'Z'</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Int -&gt; Maybe Int
forall a. a -&gt; Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-var">Just</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">0</span></span><span>
</span><span id="line-262"></span><span class="annot"><a href="Data.Time.Format.Parse.Instances.html#getMilZoneHours"><span class="hs-identifier hs-var">getMilZoneHours</span></a></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Maybe Int
forall a. Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Nothing"><span class="hs-identifier hs-var">Nothing</span></a></span><span>
</span><span id="line-263"></span><span>
</span><span id="line-264"></span><span class="annot"><a href="Data.Time.Format.Parse.Instances.html#getMilZone"><span class="hs-identifier hs-type">getMilZone</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Char</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="../../base/src/GHC.Maybe.html#Maybe"><span class="hs-identifier hs-type">Maybe</span></a></span><span> </span><span class="annot"><a href="Data.Time.LocalTime.Internal.TimeZone.html#TimeZone"><span class="hs-identifier hs-type">TimeZone</span></a></span><span>
</span><span id="line-265"></span><span id="getMilZone"><span class="annot"><span class="annottext">getMilZone :: Char -&gt; Maybe TimeZone
</span><a href="Data.Time.Format.Parse.Instances.html#getMilZone"><span class="hs-identifier hs-var hs-var">getMilZone</span></a></span></span><span> </span><span id="local-6989586621679073213"><span class="annot"><span class="annottext">Char
</span><a href="#local-6989586621679073213"><span class="hs-identifier hs-var">c</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">let</span><span>
</span><span id="line-266"></span><span>    </span><span id="local-6989586621679073212"><span class="annot"><span class="annottext">yc :: Char
</span><a href="#local-6989586621679073212"><span class="hs-identifier hs-var hs-var">yc</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Char -&gt; Char
</span><a href="../../base/src/GHC.Unicode.html#toUpper"><span class="hs-identifier hs-var">toUpper</span></a></span><span> </span><span class="annot"><span class="annottext">Char
</span><a href="#local-6989586621679073213"><span class="hs-identifier hs-var">c</span></a></span><span>
</span><span id="line-267"></span><span>    </span><span class="hs-keyword">in</span><span> </span><span class="hs-keyword">do</span><span>
</span><span id="line-268"></span><span>        </span><span id="local-6989586621679073211"><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679073211"><span class="hs-identifier hs-var">hours</span></a></span></span><span> </span><span class="hs-glyph">&lt;-</span><span> </span><span class="annot"><span class="annottext">Char -&gt; Maybe Int
</span><a href="Data.Time.Format.Parse.Instances.html#getMilZoneHours"><span class="hs-identifier hs-var">getMilZoneHours</span></a></span><span> </span><span class="annot"><span class="annottext">Char
</span><a href="#local-6989586621679073212"><span class="hs-identifier hs-var">yc</span></a></span><span>
</span><span id="line-269"></span><span>        </span><span class="annot"><span class="annottext">TimeZone -&gt; Maybe TimeZone
forall (m :: * -&gt; *) a. Monad m =&gt; a -&gt; m a
</span><a href="../../base/src/GHC.Base.html#return"><span class="hs-identifier hs-var">return</span></a></span><span> </span><span class="annot"><span class="annottext">(TimeZone -&gt; Maybe TimeZone) -&gt; TimeZone -&gt; Maybe TimeZone
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">Int -&gt; Bool -&gt; [Char] -&gt; TimeZone
</span><a href="Data.Time.LocalTime.Internal.TimeZone.html#TimeZone"><span class="hs-identifier hs-var">TimeZone</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679073211"><span class="hs-identifier hs-var">hours</span></a></span><span> </span><span class="annot"><span class="annottext">Int -&gt; Int -&gt; Int
forall a. Num a =&gt; a -&gt; a -&gt; a
</span><a href="../../base/src/GHC.Num.html#%2A"><span class="hs-operator hs-var">*</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">60</span></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier hs-var">False</span></span><span> </span><span class="hs-special">[</span><span class="annot"><span class="annottext">Char
</span><a href="#local-6989586621679073212"><span class="hs-identifier hs-var">yc</span></a></span><span class="hs-special">]</span><span>
</span><span id="line-270"></span><span>
</span><span id="line-271"></span><span class="annot"><a href="Data.Time.Format.Parse.Instances.html#getKnownTimeZone"><span class="hs-identifier hs-type">getKnownTimeZone</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Data.Time.Format.Locale.html#TimeLocale"><span class="hs-identifier hs-type">TimeLocale</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="../../base/src/GHC.Base.html#String"><span class="hs-identifier hs-type">String</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="../../base/src/GHC.Maybe.html#Maybe"><span class="hs-identifier hs-type">Maybe</span></a></span><span> </span><span class="annot"><a href="Data.Time.LocalTime.Internal.TimeZone.html#TimeZone"><span class="hs-identifier hs-type">TimeZone</span></a></span><span>
</span><span id="line-272"></span><span id="getKnownTimeZone"><span class="annot"><span class="annottext">getKnownTimeZone :: TimeLocale -&gt; [Char] -&gt; Maybe TimeZone
</span><a href="Data.Time.Format.Parse.Instances.html#getKnownTimeZone"><span class="hs-identifier hs-var hs-var">getKnownTimeZone</span></a></span></span><span> </span><span id="local-6989586621679073208"><span class="annot"><span class="annottext">TimeLocale
</span><a href="#local-6989586621679073208"><span class="hs-identifier hs-var">locale</span></a></span></span><span> </span><span id="local-6989586621679073207"><span class="annot"><span class="annottext">[Char]
</span><a href="#local-6989586621679073207"><span class="hs-identifier hs-var">x</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">(TimeZone -&gt; Bool) -&gt; [TimeZone] -&gt; Maybe TimeZone
forall (t :: * -&gt; *) a. Foldable t =&gt; (a -&gt; Bool) -&gt; t a -&gt; Maybe a
</span><a href="../../base/src/Data.Foldable.html#find"><span class="hs-identifier hs-var">find</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><span id="local-6989586621679073205"><span class="annot"><span class="annottext">TimeZone
</span><a href="#local-6989586621679073205"><span class="hs-identifier hs-var">tz</span></a></span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">(Char -&gt; Char) -&gt; [Char] -&gt; [Char]
forall a b. (a -&gt; b) -&gt; [a] -&gt; [b]
</span><a href="../../base/src/GHC.Base.html#map"><span class="hs-identifier hs-var">map</span></a></span><span> </span><span class="annot"><span class="annottext">Char -&gt; Char
</span><a href="../../base/src/GHC.Unicode.html#toUpper"><span class="hs-identifier hs-var">toUpper</span></a></span><span> </span><span class="annot"><span class="annottext">[Char]
</span><a href="#local-6989586621679073207"><span class="hs-identifier hs-var">x</span></a></span><span> </span><span class="annot"><span class="annottext">[Char] -&gt; [Char] -&gt; Bool
forall a. Eq a =&gt; a -&gt; a -&gt; Bool
</span><span class="hs-operator hs-var">==</span></span><span> </span><span class="annot"><span class="annottext">TimeZone -&gt; [Char]
</span><a href="Data.Time.LocalTime.Internal.TimeZone.html#timeZoneName"><span class="hs-identifier hs-var hs-var">timeZoneName</span></a></span><span> </span><span class="annot"><span class="annottext">TimeZone
</span><a href="#local-6989586621679073205"><span class="hs-identifier hs-var">tz</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">TimeLocale -&gt; [TimeZone]
</span><a href="Data.Time.Format.Locale.html#knownTimeZones"><span class="hs-identifier hs-var hs-var">knownTimeZones</span></a></span><span> </span><span class="annot"><span class="annottext">TimeLocale
</span><a href="#local-6989586621679073208"><span class="hs-identifier hs-var">locale</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-273"></span><span>
</span><span id="line-274"></span><span class="hs-keyword">instance</span><span> </span><span class="annot"><a href="Data.Time.Format.Parse.Class.html#ParseTime"><span class="hs-identifier hs-type">ParseTime</span></a></span><span> </span><span class="annot"><a href="Data.Time.LocalTime.Internal.TimeZone.html#TimeZone"><span class="hs-identifier hs-type">TimeZone</span></a></span><span> </span><span class="hs-keyword">where</span><span>
</span><span id="line-275"></span><span>    </span><span id="local-6989586621679073198"><span class="annot"><span class="annottext">substituteTimeSpecifier :: forall (proxy :: * -&gt; *).
proxy TimeZone -&gt; TimeLocale -&gt; Char -&gt; Maybe [Char]
</span><a href="#local-6989586621679073198"><span class="hs-identifier hs-var hs-var hs-var hs-var">substituteTimeSpecifier</span></a></span></span><span> </span><span class="annot"><span class="annottext">proxy TimeZone
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">TimeLocale -&gt; Char -&gt; Maybe [Char]
</span><a href="Data.Time.Format.Parse.Class.html#timeSubstituteTimeSpecifier"><span class="hs-identifier hs-var">timeSubstituteTimeSpecifier</span></a></span><span>
</span><span id="line-276"></span><span>    </span><span id="local-6989586621679073197"><span class="annot"><span class="annottext">parseTimeSpecifier :: forall (proxy :: * -&gt; *).
proxy TimeZone
-&gt; TimeLocale -&gt; Maybe ParseNumericPadding -&gt; Char -&gt; ReadP [Char]
</span><a href="#local-6989586621679073197"><span class="hs-identifier hs-var hs-var hs-var hs-var">parseTimeSpecifier</span></a></span></span><span> </span><span class="annot"><span class="annottext">proxy TimeZone
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">TimeLocale -&gt; Maybe ParseNumericPadding -&gt; Char -&gt; ReadP [Char]
</span><a href="Data.Time.Format.Parse.Class.html#timeParseTimeSpecifier"><span class="hs-identifier hs-var">timeParseTimeSpecifier</span></a></span><span>
</span><span id="line-277"></span><span>    </span><span id="local-6989586621679073194"><span class="annot"><span class="annottext">buildTime :: TimeLocale -&gt; [(Char, [Char])] -&gt; Maybe TimeZone
</span><a href="#local-6989586621679073194"><span class="hs-identifier hs-var hs-var hs-var hs-var">buildTime</span></a></span></span><span> </span><span id="local-6989586621679073193"><span class="annot"><span class="annottext">TimeLocale
</span><a href="#local-6989586621679073193"><span class="hs-identifier hs-var">l</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">let</span><span>
</span><span id="line-278"></span><span>        </span><span class="annot"><a href="#local-6989586621679073192"><span class="hs-identifier hs-type">f</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Char</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="../../base/src/GHC.Base.html#String"><span class="hs-identifier hs-type">String</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="Data.Time.LocalTime.Internal.TimeZone.html#TimeZone"><span class="hs-identifier hs-type">TimeZone</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="../../base/src/GHC.Maybe.html#Maybe"><span class="hs-identifier hs-type">Maybe</span></a></span><span> </span><span class="annot"><a href="Data.Time.LocalTime.Internal.TimeZone.html#TimeZone"><span class="hs-identifier hs-type">TimeZone</span></a></span><span>
</span><span id="line-279"></span><span>        </span><span id="local-6989586621679073192"><span class="annot"><span class="annottext">f :: Char -&gt; [Char] -&gt; TimeZone -&gt; Maybe TimeZone
</span><a href="#local-6989586621679073192"><span class="hs-identifier hs-var hs-var">f</span></a></span></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'z'</span></span><span> </span><span id="local-6989586621679073191"><span class="annot"><span class="annottext">[Char]
</span><a href="#local-6989586621679073191"><span class="hs-identifier hs-var">str</span></a></span></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="Data.Time.LocalTime.Internal.TimeZone.html#TimeZone"><span class="hs-identifier hs-type">TimeZone</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-identifier">_</span></span><span> </span><span id="local-6989586621679073190"><span class="annot"><span class="annottext">Bool
</span><a href="#local-6989586621679073190"><span class="hs-identifier hs-var">dst</span></a></span></span><span> </span><span id="local-6989586621679073189"><span class="annot"><span class="annottext">[Char]
</span><a href="#local-6989586621679073189"><span class="hs-identifier hs-var">name</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">|</span><span> </span><span class="annot"><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-type">Just</span></a></span><span> </span><span id="local-6989586621679073188"><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679073188"><span class="hs-identifier hs-var">offset</span></a></span></span><span> </span><span class="hs-glyph">&lt;-</span><span> </span><span class="annot"><span class="annottext">[Char] -&gt; Maybe Int
</span><a href="Data.Time.Format.Parse.Instances.html#readTzOffset"><span class="hs-identifier hs-var">readTzOffset</span></a></span><span> </span><span class="annot"><span class="annottext">[Char]
</span><a href="#local-6989586621679073191"><span class="hs-identifier hs-var">str</span></a></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">TimeZone -&gt; Maybe TimeZone
forall a. a -&gt; Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-var">Just</span></a></span><span> </span><span class="annot"><span class="annottext">(TimeZone -&gt; Maybe TimeZone) -&gt; TimeZone -&gt; Maybe TimeZone
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">Int -&gt; Bool -&gt; [Char] -&gt; TimeZone
</span><a href="Data.Time.LocalTime.Internal.TimeZone.html#TimeZone"><span class="hs-identifier hs-var">TimeZone</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679073188"><span class="hs-identifier hs-var">offset</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
</span><a href="#local-6989586621679073190"><span class="hs-identifier hs-var">dst</span></a></span><span> </span><span class="annot"><span class="annottext">[Char]
</span><a href="#local-6989586621679073189"><span class="hs-identifier hs-var">name</span></a></span><span>
</span><span id="line-280"></span><span>        </span><span class="annot"><a href="#local-6989586621679073192"><span class="hs-identifier hs-var">f</span></a></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'z'</span></span><span> </span><span class="annot"><span class="annottext">[Char]
</span><span class="hs-identifier">_</span></span><span> </span><span class="annot"><span class="annottext">TimeZone
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Maybe TimeZone
forall a. Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Nothing"><span class="hs-identifier hs-var">Nothing</span></a></span><span>
</span><span id="line-281"></span><span>        </span><span class="annot"><a href="#local-6989586621679073192"><span class="hs-identifier hs-var">f</span></a></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'Z'</span></span><span> </span><span id="local-6989586621679073186"><span class="annot"><span class="annottext">[Char]
</span><a href="#local-6989586621679073186"><span class="hs-identifier hs-var">str</span></a></span></span><span> </span><span class="annot"><span class="annottext">TimeZone
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-glyph">|</span><span> </span><span class="annot"><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-type">Just</span></a></span><span> </span><span id="local-6989586621679073185"><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679073185"><span class="hs-identifier hs-var">offset</span></a></span></span><span> </span><span class="hs-glyph">&lt;-</span><span> </span><span class="annot"><span class="annottext">[Char] -&gt; Maybe Int
</span><a href="Data.Time.Format.Parse.Instances.html#readTzOffset"><span class="hs-identifier hs-var">readTzOffset</span></a></span><span> </span><span class="annot"><span class="annottext">[Char]
</span><a href="#local-6989586621679073186"><span class="hs-identifier hs-var">str</span></a></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">TimeZone -&gt; Maybe TimeZone
forall a. a -&gt; Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-var">Just</span></a></span><span> </span><span class="annot"><span class="annottext">(TimeZone -&gt; Maybe TimeZone) -&gt; TimeZone -&gt; Maybe TimeZone
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">Int -&gt; Bool -&gt; [Char] -&gt; TimeZone
</span><a href="Data.Time.LocalTime.Internal.TimeZone.html#TimeZone"><span class="hs-identifier hs-var">TimeZone</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679073185"><span class="hs-identifier hs-var">offset</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier hs-var">False</span></span><span> </span><span class="annot"><span class="annottext">[Char]
</span><span class="hs-string">&quot;&quot;</span></span><span>
</span><span id="line-282"></span><span>        </span><span class="annot"><a href="#local-6989586621679073192"><span class="hs-identifier hs-var">f</span></a></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'Z'</span></span><span> </span><span id="local-6989586621679073184"><span class="annot"><span class="annottext">[Char]
</span><a href="#local-6989586621679073184"><span class="hs-identifier hs-var">str</span></a></span></span><span> </span><span class="annot"><span class="annottext">TimeZone
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-glyph">|</span><span> </span><span class="annot"><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-type">Just</span></a></span><span> </span><span id="local-6989586621679073183"><span class="annot"><span class="annottext">TimeZone
</span><a href="#local-6989586621679073183"><span class="hs-identifier hs-var">zone</span></a></span></span><span> </span><span class="hs-glyph">&lt;-</span><span> </span><span class="annot"><span class="annottext">TimeLocale -&gt; [Char] -&gt; Maybe TimeZone
</span><a href="Data.Time.Format.Parse.Instances.html#getKnownTimeZone"><span class="hs-identifier hs-var">getKnownTimeZone</span></a></span><span> </span><span class="annot"><span class="annottext">TimeLocale
</span><a href="#local-6989586621679073193"><span class="hs-identifier hs-var">l</span></a></span><span> </span><span class="annot"><span class="annottext">[Char]
</span><a href="#local-6989586621679073184"><span class="hs-identifier hs-var">str</span></a></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">TimeZone -&gt; Maybe TimeZone
forall a. a -&gt; Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-var">Just</span></a></span><span> </span><span class="annot"><span class="annottext">TimeZone
</span><a href="#local-6989586621679073183"><span class="hs-identifier hs-var">zone</span></a></span><span>
</span><span id="line-283"></span><span>        </span><span class="annot"><a href="#local-6989586621679073192"><span class="hs-identifier hs-var">f</span></a></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'Z'</span></span><span> </span><span class="annot"><span class="annottext">[Char]
</span><span class="hs-string">&quot;UTC&quot;</span></span><span> </span><span class="annot"><span class="annottext">TimeZone
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">TimeZone -&gt; Maybe TimeZone
forall a. a -&gt; Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-var">Just</span></a></span><span> </span><span class="annot"><span class="annottext">TimeZone
</span><a href="Data.Time.LocalTime.Internal.TimeZone.html#utc"><span class="hs-identifier hs-var">utc</span></a></span><span>
</span><span id="line-284"></span><span>        </span><span class="annot"><a href="#local-6989586621679073192"><span class="hs-identifier hs-var">f</span></a></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'Z'</span></span><span> </span><span class="hs-special">[</span><span id="local-6989586621679073181"><span class="annot"><span class="annottext">Char
</span><a href="#local-6989586621679073181"><span class="hs-identifier hs-var">c</span></a></span></span><span class="hs-special">]</span><span> </span><span class="annot"><span class="annottext">TimeZone
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-glyph">|</span><span> </span><span class="annot"><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-type">Just</span></a></span><span> </span><span id="local-6989586621679073180"><span class="annot"><span class="annottext">TimeZone
</span><a href="#local-6989586621679073180"><span class="hs-identifier hs-var">zone</span></a></span></span><span> </span><span class="hs-glyph">&lt;-</span><span> </span><span class="annot"><span class="annottext">Char -&gt; Maybe TimeZone
</span><a href="Data.Time.Format.Parse.Instances.html#getMilZone"><span class="hs-identifier hs-var">getMilZone</span></a></span><span> </span><span class="annot"><span class="annottext">Char
</span><a href="#local-6989586621679073181"><span class="hs-identifier hs-var">c</span></a></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">TimeZone -&gt; Maybe TimeZone
forall a. a -&gt; Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-var">Just</span></a></span><span> </span><span class="annot"><span class="annottext">TimeZone
</span><a href="#local-6989586621679073180"><span class="hs-identifier hs-var">zone</span></a></span><span>
</span><span id="line-285"></span><span>        </span><span class="annot"><a href="#local-6989586621679073192"><span class="hs-identifier hs-var">f</span></a></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'Z'</span></span><span> </span><span class="annot"><span class="annottext">[Char]
</span><span class="hs-identifier">_</span></span><span> </span><span class="annot"><span class="annottext">TimeZone
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Maybe TimeZone
forall a. Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Nothing"><span class="hs-identifier hs-var">Nothing</span></a></span><span>
</span><span id="line-286"></span><span>        </span><span class="annot"><a href="#local-6989586621679073192"><span class="hs-identifier hs-var">f</span></a></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-identifier">_</span></span><span> </span><span class="annot"><span class="annottext">[Char]
</span><span class="hs-identifier">_</span></span><span> </span><span id="local-6989586621679073179"><span class="annot"><span class="annottext">TimeZone
</span><a href="#local-6989586621679073179"><span class="hs-identifier hs-var">tz</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">TimeZone -&gt; Maybe TimeZone
forall a. a -&gt; Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-var">Just</span></a></span><span> </span><span class="annot"><span class="annottext">TimeZone
</span><a href="#local-6989586621679073179"><span class="hs-identifier hs-var">tz</span></a></span><span>
</span><span id="line-287"></span><span>        </span><span class="hs-keyword">in</span><span> </span><span class="annot"><span class="annottext">(Maybe TimeZone -&gt; (Char, [Char]) -&gt; Maybe TimeZone)
-&gt; Maybe TimeZone -&gt; [(Char, [Char])] -&gt; Maybe TimeZone
forall (t :: * -&gt; *) b a.
Foldable t =&gt;
(b -&gt; a -&gt; b) -&gt; b -&gt; t a -&gt; b
</span><a href="../../base/src/Data.Foldable.html#foldl"><span class="hs-identifier hs-var">foldl</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><span id="local-6989586621679073178"><span class="annot"><span class="annottext">Maybe TimeZone
</span><a href="#local-6989586621679073178"><span class="hs-identifier hs-var">mt</span></a></span></span><span> </span><span class="hs-special">(</span><span id="local-6989586621679073177"><span class="annot"><span class="annottext">Char
</span><a href="#local-6989586621679073177"><span class="hs-identifier hs-var">c</span></a></span></span><span class="hs-special">,</span><span id="local-6989586621679073176"><span class="annot"><span class="annottext">[Char]
</span><a href="#local-6989586621679073176"><span class="hs-identifier hs-var">s</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Maybe TimeZone
</span><a href="#local-6989586621679073178"><span class="hs-identifier hs-var">mt</span></a></span><span> </span><span class="annot"><span class="annottext">Maybe TimeZone -&gt; (TimeZone -&gt; Maybe TimeZone) -&gt; Maybe TimeZone
forall (m :: * -&gt; *) a b. Monad m =&gt; m a -&gt; (a -&gt; m b) -&gt; m b
</span><a href="../../base/src/GHC.Base.html#%3E%3E%3D"><span class="hs-operator hs-var">&gt;&gt;=</span></a></span><span> </span><span class="annot"><span class="annottext">Char -&gt; [Char] -&gt; TimeZone -&gt; Maybe TimeZone
</span><a href="#local-6989586621679073192"><span class="hs-identifier hs-var">f</span></a></span><span> </span><span class="annot"><span class="annottext">Char
</span><a href="#local-6989586621679073177"><span class="hs-identifier hs-var">c</span></a></span><span> </span><span class="annot"><span class="annottext">[Char]
</span><a href="#local-6989586621679073176"><span class="hs-identifier hs-var">s</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">TimeZone -&gt; Maybe TimeZone
forall a. a -&gt; Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-var">Just</span></a></span><span> </span><span class="annot"><span class="annottext">(TimeZone -&gt; Maybe TimeZone) -&gt; TimeZone -&gt; Maybe TimeZone
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">Int -&gt; TimeZone
</span><a href="Data.Time.LocalTime.Internal.TimeZone.html#minutesToTimeZone"><span class="hs-identifier hs-var">minutesToTimeZone</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">0</span></span><span class="hs-special">)</span><span>
</span><span id="line-288"></span><span>
</span><span id="line-289"></span><span class="annot"><a href="Data.Time.Format.Parse.Instances.html#readTzOffset"><span class="hs-identifier hs-type">readTzOffset</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../base/src/GHC.Base.html#String"><span class="hs-identifier hs-type">String</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="../../base/src/GHC.Maybe.html#Maybe"><span class="hs-identifier hs-type">Maybe</span></a></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Int</span></span><span>
</span><span id="line-290"></span><span id="readTzOffset"><span class="annot"><span class="annottext">readTzOffset :: [Char] -&gt; Maybe Int
</span><a href="Data.Time.Format.Parse.Instances.html#readTzOffset"><span class="hs-identifier hs-var hs-var">readTzOffset</span></a></span></span><span> </span><span id="local-6989586621679073174"><span class="annot"><span class="annottext">[Char]
</span><a href="#local-6989586621679073174"><span class="hs-identifier hs-var">str</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">let</span><span>
</span><span id="line-291"></span><span>
</span><span id="line-292"></span><span>    </span><span id="local-6989586621679073169"><span class="annot"><span class="annottext">getSign :: Char -&gt; Maybe a
</span><a href="#local-6989586621679073169"><span class="hs-identifier hs-var hs-var">getSign</span></a></span></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'+'</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">a -&gt; Maybe a
forall a. a -&gt; Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-var">Just</span></a></span><span> </span><span class="annot"><span class="annottext">a
</span><span class="hs-number">1</span></span><span>
</span><span id="line-293"></span><span>    </span><span class="annot"><a href="#local-6989586621679073169"><span class="hs-identifier hs-var">getSign</span></a></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'-'</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">a -&gt; Maybe a
forall a. a -&gt; Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-var">Just</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-glyph">-</span><span class="annot"><span class="annottext">a
</span><span class="hs-number">1</span></span><span class="hs-special">)</span><span>
</span><span id="line-294"></span><span>    </span><span class="annot"><a href="#local-6989586621679073169"><span class="hs-identifier hs-var">getSign</span></a></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Maybe a
forall a. Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Nothing"><span class="hs-identifier hs-var">Nothing</span></a></span><span>
</span><span id="line-295"></span><span>
</span><span id="line-296"></span><span>    </span><span id="local-6989586621679073155"><span class="annot"><span class="annottext">calc :: Char -&gt; Char -&gt; Char -&gt; Char -&gt; Char -&gt; Maybe b
</span><a href="#local-6989586621679073155"><span class="hs-identifier hs-var hs-var">calc</span></a></span></span><span> </span><span id="local-6989586621679073154"><span class="annot"><span class="annottext">Char
</span><a href="#local-6989586621679073154"><span class="hs-identifier hs-var">s</span></a></span></span><span> </span><span id="local-6989586621679073153"><span class="annot"><span class="annottext">Char
</span><a href="#local-6989586621679073153"><span class="hs-identifier hs-var">h1</span></a></span></span><span> </span><span id="local-6989586621679073152"><span class="annot"><span class="annottext">Char
</span><a href="#local-6989586621679073152"><span class="hs-identifier hs-var">h2</span></a></span></span><span> </span><span id="local-6989586621679073151"><span class="annot"><span class="annottext">Char
</span><a href="#local-6989586621679073151"><span class="hs-identifier hs-var">m1</span></a></span></span><span> </span><span id="local-6989586621679073150"><span class="annot"><span class="annottext">Char
</span><a href="#local-6989586621679073150"><span class="hs-identifier hs-var">m2</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">do</span><span>
</span><span id="line-297"></span><span>        </span><span id="local-6989586621679073149"><span class="annot"><span class="annottext">b
</span><a href="#local-6989586621679073149"><span class="hs-identifier hs-var">sign</span></a></span></span><span> </span><span class="hs-glyph">&lt;-</span><span> </span><span class="annot"><span class="annottext">Char -&gt; Maybe b
forall {a}. Num a =&gt; Char -&gt; Maybe a
</span><a href="#local-6989586621679073169"><span class="hs-identifier hs-var">getSign</span></a></span><span> </span><span class="annot"><span class="annottext">Char
</span><a href="#local-6989586621679073154"><span class="hs-identifier hs-var">s</span></a></span><span>
</span><span id="line-298"></span><span>        </span><span id="local-6989586621679073148"><span class="annot"><span class="annottext">b
</span><a href="#local-6989586621679073148"><span class="hs-identifier hs-var">h</span></a></span></span><span> </span><span class="hs-glyph">&lt;-</span><span> </span><span class="annot"><span class="annottext">[Char] -&gt; Maybe b
forall a. Read a =&gt; [Char] -&gt; Maybe a
</span><a href="../../base/src/Text.Read.html#readMaybe"><span class="hs-identifier hs-var">readMaybe</span></a></span><span> </span><span class="hs-special">[</span><span class="annot"><span class="annottext">Char
</span><a href="#local-6989586621679073153"><span class="hs-identifier hs-var">h1</span></a></span><span class="hs-special">,</span><span class="annot"><span class="annottext">Char
</span><a href="#local-6989586621679073152"><span class="hs-identifier hs-var">h2</span></a></span><span class="hs-special">]</span><span>
</span><span id="line-299"></span><span>        </span><span id="local-6989586621679073147"><span class="annot"><span class="annottext">b
</span><a href="#local-6989586621679073147"><span class="hs-identifier hs-var">m</span></a></span></span><span> </span><span class="hs-glyph">&lt;-</span><span> </span><span class="annot"><span class="annottext">[Char] -&gt; Maybe b
forall a. Read a =&gt; [Char] -&gt; Maybe a
</span><a href="../../base/src/Text.Read.html#readMaybe"><span class="hs-identifier hs-var">readMaybe</span></a></span><span> </span><span class="hs-special">[</span><span class="annot"><span class="annottext">Char
</span><a href="#local-6989586621679073151"><span class="hs-identifier hs-var">m1</span></a></span><span class="hs-special">,</span><span class="annot"><span class="annottext">Char
</span><a href="#local-6989586621679073150"><span class="hs-identifier hs-var">m2</span></a></span><span class="hs-special">]</span><span>
</span><span id="line-300"></span><span>        </span><span class="annot"><span class="annottext">b -&gt; Maybe b
forall (m :: * -&gt; *) a. Monad m =&gt; a -&gt; m a
</span><a href="../../base/src/GHC.Base.html#return"><span class="hs-identifier hs-var">return</span></a></span><span> </span><span class="annot"><span class="annottext">(b -&gt; Maybe b) -&gt; b -&gt; Maybe b
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">b
</span><a href="#local-6989586621679073149"><span class="hs-identifier hs-var">sign</span></a></span><span> </span><span class="annot"><span class="annottext">b -&gt; b -&gt; b
forall a. Num a =&gt; a -&gt; a -&gt; a
</span><a href="../../base/src/GHC.Num.html#%2A"><span class="hs-operator hs-var">*</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">b
</span><span class="hs-number">60</span></span><span> </span><span class="annot"><span class="annottext">b -&gt; b -&gt; b
forall a. Num a =&gt; a -&gt; a -&gt; a
</span><a href="../../base/src/GHC.Num.html#%2A"><span class="hs-operator hs-var">*</span></a></span><span> </span><span class="annot"><span class="annottext">b
</span><a href="#local-6989586621679073148"><span class="hs-identifier hs-var">h</span></a></span><span> </span><span class="annot"><span class="annottext">b -&gt; b -&gt; b
forall a. Num a =&gt; a -&gt; a -&gt; a
</span><a href="../../base/src/GHC.Num.html#%2B"><span class="hs-operator hs-var">+</span></a></span><span> </span><span class="annot"><span class="annottext">b
</span><a href="#local-6989586621679073147"><span class="hs-identifier hs-var">m</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-301"></span><span>
</span><span id="line-302"></span><span>    </span><span class="hs-keyword">in</span><span> </span><span class="hs-keyword">case</span><span> </span><span class="annot"><span class="annottext">[Char]
</span><a href="#local-6989586621679073174"><span class="hs-identifier hs-var">str</span></a></span><span> </span><span class="hs-keyword">of</span><span>
</span><span id="line-303"></span><span>        </span><span class="hs-special">(</span><span id="local-6989586621679073146"><span class="annot"><span class="annottext">Char
</span><a href="#local-6989586621679073146"><span class="hs-identifier hs-var">s</span></a></span></span><span class="annot"><span class="hs-glyph hs-type">:</span></span><span id="local-6989586621679073145"><span class="annot"><span class="annottext">Char
</span><a href="#local-6989586621679073145"><span class="hs-identifier hs-var">h1</span></a></span></span><span class="annot"><span class="hs-glyph hs-type">:</span></span><span id="local-6989586621679073144"><span class="annot"><span class="annottext">Char
</span><a href="#local-6989586621679073144"><span class="hs-identifier hs-var">h2</span></a></span></span><span class="annot"><span class="hs-glyph hs-type">:</span></span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">':'</span></span><span class="annot"><span class="hs-glyph hs-type">:</span></span><span id="local-6989586621679073143"><span class="annot"><span class="annottext">Char
</span><a href="#local-6989586621679073143"><span class="hs-identifier hs-var">m1</span></a></span></span><span class="annot"><span class="hs-glyph hs-type">:</span></span><span id="local-6989586621679073142"><span class="annot"><span class="annottext">Char
</span><a href="#local-6989586621679073142"><span class="hs-identifier hs-var">m2</span></a></span></span><span class="annot"><span class="hs-glyph hs-type">:</span></span><span class="hs-special">[</span><span class="hs-special">]</span><span class="hs-special">)</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Char -&gt; Char -&gt; Char -&gt; Char -&gt; Char -&gt; Maybe Int
forall {b}.
(Num b, Read b) =&gt;
Char -&gt; Char -&gt; Char -&gt; Char -&gt; Char -&gt; Maybe b
</span><a href="#local-6989586621679073155"><span class="hs-identifier hs-var">calc</span></a></span><span> </span><span class="annot"><span class="annottext">Char
</span><a href="#local-6989586621679073146"><span class="hs-identifier hs-var">s</span></a></span><span> </span><span class="annot"><span class="annottext">Char
</span><a href="#local-6989586621679073145"><span class="hs-identifier hs-var">h1</span></a></span><span> </span><span class="annot"><span class="annottext">Char
</span><a href="#local-6989586621679073144"><span class="hs-identifier hs-var">h2</span></a></span><span> </span><span class="annot"><span class="annottext">Char
</span><a href="#local-6989586621679073143"><span class="hs-identifier hs-var">m1</span></a></span><span> </span><span class="annot"><span class="annottext">Char
</span><a href="#local-6989586621679073142"><span class="hs-identifier hs-var">m2</span></a></span><span>
</span><span id="line-304"></span><span>        </span><span class="hs-special">(</span><span id="local-6989586621679073141"><span class="annot"><span class="annottext">Char
</span><a href="#local-6989586621679073141"><span class="hs-identifier hs-var">s</span></a></span></span><span class="annot"><span class="hs-glyph hs-type">:</span></span><span id="local-6989586621679073140"><span class="annot"><span class="annottext">Char
</span><a href="#local-6989586621679073140"><span class="hs-identifier hs-var">h1</span></a></span></span><span class="annot"><span class="hs-glyph hs-type">:</span></span><span id="local-6989586621679073139"><span class="annot"><span class="annottext">Char
</span><a href="#local-6989586621679073139"><span class="hs-identifier hs-var">h2</span></a></span></span><span class="annot"><span class="hs-glyph hs-type">:</span></span><span id="local-6989586621679073138"><span class="annot"><span class="annottext">Char
</span><a href="#local-6989586621679073138"><span class="hs-identifier hs-var">m1</span></a></span></span><span class="annot"><span class="hs-glyph hs-type">:</span></span><span id="local-6989586621679073137"><span class="annot"><span class="annottext">Char
</span><a href="#local-6989586621679073137"><span class="hs-identifier hs-var">m2</span></a></span></span><span class="annot"><span class="hs-glyph hs-type">:</span></span><span class="hs-special">[</span><span class="hs-special">]</span><span class="hs-special">)</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Char -&gt; Char -&gt; Char -&gt; Char -&gt; Char -&gt; Maybe Int
forall {b}.
(Num b, Read b) =&gt;
Char -&gt; Char -&gt; Char -&gt; Char -&gt; Char -&gt; Maybe b
</span><a href="#local-6989586621679073155"><span class="hs-identifier hs-var">calc</span></a></span><span> </span><span class="annot"><span class="annottext">Char
</span><a href="#local-6989586621679073141"><span class="hs-identifier hs-var">s</span></a></span><span> </span><span class="annot"><span class="annottext">Char
</span><a href="#local-6989586621679073140"><span class="hs-identifier hs-var">h1</span></a></span><span> </span><span class="annot"><span class="annottext">Char
</span><a href="#local-6989586621679073139"><span class="hs-identifier hs-var">h2</span></a></span><span> </span><span class="annot"><span class="annottext">Char
</span><a href="#local-6989586621679073138"><span class="hs-identifier hs-var">m1</span></a></span><span> </span><span class="annot"><span class="annottext">Char
</span><a href="#local-6989586621679073137"><span class="hs-identifier hs-var">m2</span></a></span><span>
</span><span id="line-305"></span><span>        </span><span class="annot"><span class="annottext">[Char]
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Maybe Int
forall a. Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Nothing"><span class="hs-identifier hs-var">Nothing</span></a></span><span>
</span><span id="line-306"></span><span>
</span><span id="line-307"></span><span class="hs-keyword">instance</span><span> </span><span class="annot"><a href="Data.Time.Format.Parse.Class.html#ParseTime"><span class="hs-identifier hs-type">ParseTime</span></a></span><span> </span><span class="annot"><a href="Data.Time.LocalTime.Internal.ZonedTime.html#ZonedTime"><span class="hs-identifier hs-type">ZonedTime</span></a></span><span> </span><span class="hs-keyword">where</span><span>
</span><span id="line-308"></span><span>    </span><span id="local-6989586621679073132"><span class="annot"><span class="annottext">substituteTimeSpecifier :: forall (proxy :: * -&gt; *).
proxy ZonedTime -&gt; TimeLocale -&gt; Char -&gt; Maybe [Char]
</span><a href="#local-6989586621679073132"><span class="hs-identifier hs-var hs-var hs-var hs-var">substituteTimeSpecifier</span></a></span></span><span> </span><span class="annot"><span class="annottext">proxy ZonedTime
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">TimeLocale -&gt; Char -&gt; Maybe [Char]
</span><a href="Data.Time.Format.Parse.Class.html#timeSubstituteTimeSpecifier"><span class="hs-identifier hs-var">timeSubstituteTimeSpecifier</span></a></span><span>
</span><span id="line-309"></span><span>    </span><span id="local-6989586621679073131"><span class="annot"><span class="annottext">parseTimeSpecifier :: forall (proxy :: * -&gt; *).
proxy ZonedTime
-&gt; TimeLocale -&gt; Maybe ParseNumericPadding -&gt; Char -&gt; ReadP [Char]
</span><a href="#local-6989586621679073131"><span class="hs-identifier hs-var hs-var hs-var hs-var">parseTimeSpecifier</span></a></span></span><span> </span><span class="annot"><span class="annottext">proxy ZonedTime
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">TimeLocale -&gt; Maybe ParseNumericPadding -&gt; Char -&gt; ReadP [Char]
</span><a href="Data.Time.Format.Parse.Class.html#timeParseTimeSpecifier"><span class="hs-identifier hs-var">timeParseTimeSpecifier</span></a></span><span>
</span><span id="line-310"></span><span>    </span><span id="local-6989586621679073125"><span class="annot"><span class="annottext">buildTime :: TimeLocale -&gt; [(Char, [Char])] -&gt; Maybe ZonedTime
</span><a href="#local-6989586621679073125"><span class="hs-identifier hs-var hs-var hs-var hs-var">buildTime</span></a></span></span><span> </span><span id="local-6989586621679073124"><span class="annot"><span class="annottext">TimeLocale
</span><a href="#local-6989586621679073124"><span class="hs-identifier hs-var">l</span></a></span></span><span> </span><span id="local-6989586621679073123"><span class="annot"><span class="annottext">[(Char, [Char])]
</span><a href="#local-6989586621679073123"><span class="hs-identifier hs-var">xs</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">let</span><span>
</span><span id="line-311"></span><span>        </span><span id="local-6989586621679073119"><span class="annot"><span class="annottext">f :: ZonedTime -&gt; (Char, [Char]) -&gt; Maybe ZonedTime
</span><a href="#local-6989586621679073119"><span class="hs-identifier hs-var hs-var">f</span></a></span></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="Data.Time.LocalTime.Internal.ZonedTime.html#ZonedTime"><span class="hs-identifier hs-type">ZonedTime</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="Data.Time.LocalTime.Internal.LocalTime.html#LocalTime"><span class="hs-identifier hs-type">LocalTime</span></a></span><span> </span><span class="annot"><span class="annottext">Day
</span><span class="hs-identifier">_</span></span><span> </span><span id="local-6989586621679073117"><span class="annot"><span class="annottext">TimeOfDay
</span><a href="#local-6989586621679073117"><span class="hs-identifier hs-var">tod</span></a></span></span><span class="hs-special">)</span><span> </span><span id="local-6989586621679073116"><span class="annot"><span class="annottext">TimeZone
</span><a href="#local-6989586621679073116"><span class="hs-identifier hs-var">z</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'s'</span></span><span class="hs-special">,</span><span id="local-6989586621679073115"><span class="annot"><span class="annottext">[Char]
</span><a href="#local-6989586621679073115"><span class="hs-identifier hs-var">x</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">do</span><span>
</span><span id="line-312"></span><span>            </span><span id="local-6989586621679073114"><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621679073114"><span class="hs-identifier hs-var">a</span></a></span></span><span> </span><span class="hs-glyph">&lt;-</span><span> </span><span class="annot"><span class="annottext">[Char] -&gt; Maybe Integer
forall a. Read a =&gt; [Char] -&gt; Maybe a
</span><a href="../../base/src/Text.Read.html#readMaybe"><span class="hs-identifier hs-var">readMaybe</span></a></span><span> </span><span class="annot"><span class="annottext">[Char]
</span><a href="#local-6989586621679073115"><span class="hs-identifier hs-var">x</span></a></span><span>
</span><span id="line-313"></span><span>            </span><span class="hs-keyword">let</span><span>
</span><span id="line-314"></span><span>                </span><span id="local-6989586621679073111"><span class="annot"><span class="annottext">s :: NominalDiffTime
</span><a href="#local-6989586621679073111"><span class="hs-identifier hs-var hs-var">s</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Integer -&gt; NominalDiffTime
forall a. Num a =&gt; Integer -&gt; a
</span><a href="../../base/src/GHC.Num.html#fromInteger"><span class="hs-identifier hs-var">fromInteger</span></a></span><span> </span><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621679073114"><span class="hs-identifier hs-var">a</span></a></span><span>
</span><span id="line-315"></span><span>                </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Integer
</span><span class="hs-identifier">_</span></span><span class="hs-special">,</span><span id="local-6989586621679073107"><span class="annot"><span class="annottext">Pico
</span><a href="#local-6989586621679073107"><span class="hs-identifier hs-var">ps</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Pico -&gt; (Integer, Pico)
forall a b. (RealFrac a, Integral b) =&gt; a -&gt; (b, a)
</span><a href="../../base/src/GHC.Real.html#properFraction"><span class="hs-identifier hs-var">properFraction</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">TimeOfDay -&gt; Pico
</span><a href="Data.Time.LocalTime.Internal.TimeOfDay.html#todSec"><span class="hs-identifier hs-var hs-var">todSec</span></a></span><span> </span><span class="annot"><span class="annottext">TimeOfDay
</span><a href="#local-6989586621679073117"><span class="hs-identifier hs-var">tod</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">Integer</span></span><span class="hs-special">,</span><span class="annot"><a href="../../base/src/Data.Fixed.html#Pico"><span class="hs-identifier hs-type">Pico</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-316"></span><span>                </span><span id="local-6989586621679073098"><span class="annot"><span class="annottext">s' :: NominalDiffTime
</span><a href="#local-6989586621679073098"><span class="hs-identifier hs-var hs-var">s'</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">NominalDiffTime
</span><a href="#local-6989586621679073111"><span class="hs-identifier hs-var">s</span></a></span><span> </span><span class="annot"><span class="annottext">NominalDiffTime -&gt; NominalDiffTime -&gt; NominalDiffTime
forall a. Num a =&gt; a -&gt; a -&gt; a
</span><a href="../../base/src/GHC.Num.html#%2B"><span class="hs-operator hs-var">+</span></a></span><span> </span><span class="annot"><span class="annottext">Rational -&gt; NominalDiffTime
forall a. Fractional a =&gt; Rational -&gt; a
</span><a href="../../base/src/GHC.Real.html#fromRational"><span class="hs-identifier hs-var">fromRational</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Pico -&gt; Rational
forall a. Real a =&gt; a -&gt; Rational
</span><a href="../../base/src/GHC.Real.html#toRational"><span class="hs-identifier hs-var">toRational</span></a></span><span> </span><span class="annot"><span class="annottext">Pico
</span><a href="#local-6989586621679073107"><span class="hs-identifier hs-var">ps</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-317"></span><span>            </span><span class="annot"><span class="annottext">ZonedTime -&gt; Maybe ZonedTime
forall (m :: * -&gt; *) a. Monad m =&gt; a -&gt; m a
</span><a href="../../base/src/GHC.Base.html#return"><span class="hs-identifier hs-var">return</span></a></span><span> </span><span class="annot"><span class="annottext">(ZonedTime -&gt; Maybe ZonedTime) -&gt; ZonedTime -&gt; Maybe ZonedTime
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">TimeZone -&gt; UTCTime -&gt; ZonedTime
</span><a href="Data.Time.LocalTime.Internal.ZonedTime.html#utcToZonedTime"><span class="hs-identifier hs-var">utcToZonedTime</span></a></span><span> </span><span class="annot"><span class="annottext">TimeZone
</span><a href="#local-6989586621679073116"><span class="hs-identifier hs-var">z</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">NominalDiffTime -&gt; UTCTime
</span><a href="Data.Time.Clock.POSIX.html#posixSecondsToUTCTime"><span class="hs-identifier hs-var">posixSecondsToUTCTime</span></a></span><span> </span><span class="annot"><span class="annottext">NominalDiffTime
</span><a href="#local-6989586621679073098"><span class="hs-identifier hs-var">s'</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-318"></span><span>        </span><span class="annot"><a href="#local-6989586621679073119"><span class="hs-identifier hs-var">f</span></a></span><span> </span><span id="local-6989586621679073095"><span class="annot"><span class="annottext">ZonedTime
</span><a href="#local-6989586621679073095"><span class="hs-identifier hs-var">t</span></a></span></span><span> </span><span class="annot"><span class="annottext">(Char, [Char])
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">ZonedTime -&gt; Maybe ZonedTime
forall a. a -&gt; Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-var">Just</span></a></span><span> </span><span class="annot"><span class="annottext">ZonedTime
</span><a href="#local-6989586621679073095"><span class="hs-identifier hs-var">t</span></a></span><span>
</span><span id="line-319"></span><span>        </span><span class="hs-keyword">in</span><span> </span><span class="annot"><span class="annottext">(ZonedTime -&gt; (Char, [Char]) -&gt; Maybe ZonedTime)
-&gt; Maybe ZonedTime -&gt; [(Char, [Char])] -&gt; Maybe ZonedTime
forall (m :: * -&gt; *) a b.
Monad m =&gt;
(a -&gt; b -&gt; m a) -&gt; m a -&gt; [b] -&gt; m a
</span><a href="Data.Time.Format.Parse.Instances.html#mfoldl"><span class="hs-identifier hs-var">mfoldl</span></a></span><span> </span><span class="annot"><span class="annottext">ZonedTime -&gt; (Char, [Char]) -&gt; Maybe ZonedTime
</span><a href="#local-6989586621679073119"><span class="hs-identifier hs-var">f</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">LocalTime -&gt; TimeZone -&gt; ZonedTime
</span><a href="Data.Time.LocalTime.Internal.ZonedTime.html#ZonedTime"><span class="hs-identifier hs-var">ZonedTime</span></a></span><span> </span><span class="annot"><span class="annottext">(LocalTime -&gt; TimeZone -&gt; ZonedTime)
-&gt; Maybe LocalTime -&gt; Maybe (TimeZone -&gt; ZonedTime)
forall (f :: * -&gt; *) a b. Functor f =&gt; (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="../../base/src/Data.Functor.html#%3C%24%3E"><span class="hs-operator hs-var">&lt;$&gt;</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">TimeLocale -&gt; [(Char, [Char])] -&gt; Maybe LocalTime
forall t. ParseTime t =&gt; TimeLocale -&gt; [(Char, [Char])] -&gt; Maybe t
</span><a href="Data.Time.Format.Parse.Class.html#buildTime"><span class="hs-identifier hs-var">buildTime</span></a></span><span> </span><span class="annot"><span class="annottext">TimeLocale
</span><a href="#local-6989586621679073124"><span class="hs-identifier hs-var">l</span></a></span><span> </span><span class="annot"><span class="annottext">[(Char, [Char])]
</span><a href="#local-6989586621679073123"><span class="hs-identifier hs-var">xs</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">Maybe (TimeZone -&gt; ZonedTime) -&gt; Maybe TimeZone -&gt; Maybe ZonedTime
forall (f :: * -&gt; *) a b. Applicative f =&gt; f (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="../../base/src/GHC.Base.html#%3C%2A%3E"><span class="hs-operator hs-var">&lt;*&gt;</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">TimeLocale -&gt; [(Char, [Char])] -&gt; Maybe TimeZone
forall t. ParseTime t =&gt; TimeLocale -&gt; [(Char, [Char])] -&gt; Maybe t
</span><a href="Data.Time.Format.Parse.Class.html#buildTime"><span class="hs-identifier hs-var">buildTime</span></a></span><span> </span><span class="annot"><span class="annottext">TimeLocale
</span><a href="#local-6989586621679073124"><span class="hs-identifier hs-var">l</span></a></span><span> </span><span class="annot"><span class="annottext">[(Char, [Char])]
</span><a href="#local-6989586621679073123"><span class="hs-identifier hs-var">xs</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">[(Char, [Char])]
</span><a href="#local-6989586621679073123"><span class="hs-identifier hs-var">xs</span></a></span><span>
</span><span id="line-320"></span><span>
</span><span id="line-321"></span><span class="hs-keyword">instance</span><span> </span><span class="annot"><a href="Data.Time.Format.Parse.Class.html#ParseTime"><span class="hs-identifier hs-type">ParseTime</span></a></span><span> </span><span class="annot"><a href="Data.Time.Clock.Internal.UTCTime.html#UTCTime"><span class="hs-identifier hs-type">UTCTime</span></a></span><span> </span><span class="hs-keyword">where</span><span>
</span><span id="line-322"></span><span>    </span><span id="local-6989586621679073090"><span class="annot"><span class="annottext">substituteTimeSpecifier :: forall (proxy :: * -&gt; *).
proxy UTCTime -&gt; TimeLocale -&gt; Char -&gt; Maybe [Char]
</span><a href="#local-6989586621679073090"><span class="hs-identifier hs-var hs-var hs-var hs-var">substituteTimeSpecifier</span></a></span></span><span> </span><span class="annot"><span class="annottext">proxy UTCTime
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">TimeLocale -&gt; Char -&gt; Maybe [Char]
</span><a href="Data.Time.Format.Parse.Class.html#timeSubstituteTimeSpecifier"><span class="hs-identifier hs-var">timeSubstituteTimeSpecifier</span></a></span><span>
</span><span id="line-323"></span><span>    </span><span id="local-6989586621679073089"><span class="annot"><span class="annottext">parseTimeSpecifier :: forall (proxy :: * -&gt; *).
proxy UTCTime
-&gt; TimeLocale -&gt; Maybe ParseNumericPadding -&gt; Char -&gt; ReadP [Char]
</span><a href="#local-6989586621679073089"><span class="hs-identifier hs-var hs-var hs-var hs-var">parseTimeSpecifier</span></a></span></span><span> </span><span class="annot"><span class="annottext">proxy UTCTime
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">TimeLocale -&gt; Maybe ParseNumericPadding -&gt; Char -&gt; ReadP [Char]
</span><a href="Data.Time.Format.Parse.Class.html#timeParseTimeSpecifier"><span class="hs-identifier hs-var">timeParseTimeSpecifier</span></a></span><span>
</span><span id="line-324"></span><span>    </span><span id="local-6989586621679073086"><span class="annot"><span class="annottext">buildTime :: TimeLocale -&gt; [(Char, [Char])] -&gt; Maybe UTCTime
</span><a href="#local-6989586621679073086"><span class="hs-identifier hs-var hs-var hs-var hs-var">buildTime</span></a></span></span><span> </span><span id="local-6989586621679073085"><span class="annot"><span class="annottext">TimeLocale
</span><a href="#local-6989586621679073085"><span class="hs-identifier hs-var">l</span></a></span></span><span> </span><span id="local-6989586621679073084"><span class="annot"><span class="annottext">[(Char, [Char])]
</span><a href="#local-6989586621679073084"><span class="hs-identifier hs-var">xs</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">ZonedTime -&gt; UTCTime
</span><a href="Data.Time.LocalTime.Internal.ZonedTime.html#zonedTimeToUTC"><span class="hs-identifier hs-var">zonedTimeToUTC</span></a></span><span> </span><span class="annot"><span class="annottext">(ZonedTime -&gt; UTCTime) -&gt; Maybe ZonedTime -&gt; Maybe UTCTime
forall (f :: * -&gt; *) a b. Functor f =&gt; (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="../../base/src/Data.Functor.html#%3C%24%3E"><span class="hs-operator hs-var">&lt;$&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">TimeLocale -&gt; [(Char, [Char])] -&gt; Maybe ZonedTime
forall t. ParseTime t =&gt; TimeLocale -&gt; [(Char, [Char])] -&gt; Maybe t
</span><a href="Data.Time.Format.Parse.Class.html#buildTime"><span class="hs-identifier hs-var">buildTime</span></a></span><span> </span><span class="annot"><span class="annottext">TimeLocale
</span><a href="#local-6989586621679073085"><span class="hs-identifier hs-var">l</span></a></span><span> </span><span class="annot"><span class="annottext">[(Char, [Char])]
</span><a href="#local-6989586621679073084"><span class="hs-identifier hs-var">xs</span></a></span><span>
</span><span id="line-325"></span><span>
</span><span id="line-326"></span><span class="hs-keyword">instance</span><span> </span><span class="annot"><a href="Data.Time.Format.Parse.Class.html#ParseTime"><span class="hs-identifier hs-type">ParseTime</span></a></span><span> </span><span class="annot"><a href="Data.Time.Clock.Internal.UniversalTime.html#UniversalTime"><span class="hs-identifier hs-type">UniversalTime</span></a></span><span> </span><span class="hs-keyword">where</span><span>
</span><span id="line-327"></span><span>    </span><span id="local-6989586621679073078"><span class="annot"><span class="annottext">substituteTimeSpecifier :: forall (proxy :: * -&gt; *).
proxy UniversalTime -&gt; TimeLocale -&gt; Char -&gt; Maybe [Char]
</span><a href="#local-6989586621679073078"><span class="hs-identifier hs-var hs-var hs-var hs-var">substituteTimeSpecifier</span></a></span></span><span> </span><span class="annot"><span class="annottext">proxy UniversalTime
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">TimeLocale -&gt; Char -&gt; Maybe [Char]
</span><a href="Data.Time.Format.Parse.Class.html#timeSubstituteTimeSpecifier"><span class="hs-identifier hs-var">timeSubstituteTimeSpecifier</span></a></span><span>
</span><span id="line-328"></span><span>    </span><span id="local-6989586621679073077"><span class="annot"><span class="annottext">parseTimeSpecifier :: forall (proxy :: * -&gt; *).
proxy UniversalTime
-&gt; TimeLocale -&gt; Maybe ParseNumericPadding -&gt; Char -&gt; ReadP [Char]
</span><a href="#local-6989586621679073077"><span class="hs-identifier hs-var hs-var hs-var hs-var">parseTimeSpecifier</span></a></span></span><span> </span><span class="annot"><span class="annottext">proxy UniversalTime
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">TimeLocale -&gt; Maybe ParseNumericPadding -&gt; Char -&gt; ReadP [Char]
</span><a href="Data.Time.Format.Parse.Class.html#timeParseTimeSpecifier"><span class="hs-identifier hs-var">timeParseTimeSpecifier</span></a></span><span>
</span><span id="line-329"></span><span>    </span><span id="local-6989586621679073072"><span class="annot"><span class="annottext">buildTime :: TimeLocale -&gt; [(Char, [Char])] -&gt; Maybe UniversalTime
</span><a href="#local-6989586621679073072"><span class="hs-identifier hs-var hs-var hs-var hs-var">buildTime</span></a></span></span><span> </span><span id="local-6989586621679073071"><span class="annot"><span class="annottext">TimeLocale
</span><a href="#local-6989586621679073071"><span class="hs-identifier hs-var">l</span></a></span></span><span> </span><span id="local-6989586621679073070"><span class="annot"><span class="annottext">[(Char, [Char])]
</span><a href="#local-6989586621679073070"><span class="hs-identifier hs-var">xs</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Rational -&gt; LocalTime -&gt; UniversalTime
</span><a href="Data.Time.LocalTime.Internal.LocalTime.html#localTimeToUT1"><span class="hs-identifier hs-var">localTimeToUT1</span></a></span><span> </span><span class="annot"><span class="annottext">Rational
</span><span class="hs-number">0</span></span><span> </span><span class="annot"><span class="annottext">(LocalTime -&gt; UniversalTime)
-&gt; Maybe LocalTime -&gt; Maybe UniversalTime
forall (f :: * -&gt; *) a b. Functor f =&gt; (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="../../base/src/Data.Functor.html#%3C%24%3E"><span class="hs-operator hs-var">&lt;$&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">TimeLocale -&gt; [(Char, [Char])] -&gt; Maybe LocalTime
forall t. ParseTime t =&gt; TimeLocale -&gt; [(Char, [Char])] -&gt; Maybe t
</span><a href="Data.Time.Format.Parse.Class.html#buildTime"><span class="hs-identifier hs-var">buildTime</span></a></span><span> </span><span class="annot"><span class="annottext">TimeLocale
</span><a href="#local-6989586621679073071"><span class="hs-identifier hs-var">l</span></a></span><span> </span><span class="annot"><span class="annottext">[(Char, [Char])]
</span><a href="#local-6989586621679073070"><span class="hs-identifier hs-var">xs</span></a></span><span>
</span><span id="line-330"></span><span>
</span><span id="line-331"></span><span class="annot"><a href="Data.Time.Format.Parse.Instances.html#buildTimeMonths"><span class="hs-identifier hs-type">buildTimeMonths</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">[</span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">Char</span></span><span class="hs-special">,</span><span class="annot"><a href="../../base/src/GHC.Base.html#String"><span class="hs-identifier hs-type">String</span></a></span><span class="hs-special">)</span><span class="hs-special">]</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="../../base/src/GHC.Maybe.html#Maybe"><span class="hs-identifier hs-type">Maybe</span></a></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Integer</span></span><span>
</span><span id="line-332"></span><span id="buildTimeMonths"><span class="annot"><span class="annottext">buildTimeMonths :: [(Char, [Char])] -&gt; Maybe Integer
</span><a href="Data.Time.Format.Parse.Instances.html#buildTimeMonths"><span class="hs-identifier hs-var hs-var">buildTimeMonths</span></a></span></span><span> </span><span id="local-6989586621679073067"><span class="annot"><span class="annottext">[(Char, [Char])]
</span><a href="#local-6989586621679073067"><span class="hs-identifier hs-var">xs</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">do</span><span>
</span><span id="line-333"></span><span>    </span><span id="local-6989586621679073066"><span class="annot"><span class="annottext">[Integer]
</span><a href="#local-6989586621679073066"><span class="hs-identifier hs-var">tt</span></a></span></span><span> </span><span class="hs-glyph">&lt;-</span><span> </span><span class="annot"><span class="annottext">[(Char, [Char])]
-&gt; ((Char, [Char]) -&gt; Maybe Integer) -&gt; Maybe [Integer]
forall (t :: * -&gt; *) (f :: * -&gt; *) a b.
(Traversable t, Applicative f) =&gt;
t a -&gt; (a -&gt; f b) -&gt; f (t b)
</span><a href="../../base/src/Data.Traversable.html#for"><span class="hs-identifier hs-var">for</span></a></span><span> </span><span class="annot"><span class="annottext">[(Char, [Char])]
</span><a href="#local-6989586621679073067"><span class="hs-identifier hs-var">xs</span></a></span><span> </span><span class="annot"><span class="annottext">(((Char, [Char]) -&gt; Maybe Integer) -&gt; Maybe [Integer])
-&gt; ((Char, [Char]) -&gt; Maybe Integer) -&gt; Maybe [Integer]
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="hs-glyph">\</span><span class="hs-special">(</span><span id="local-6989586621679073065"><span class="annot"><span class="annottext">Char
</span><a href="#local-6989586621679073065"><span class="hs-identifier hs-var">c</span></a></span></span><span class="hs-special">,</span><span id="local-6989586621679073064"><span class="annot"><span class="annottext">[Char]
</span><a href="#local-6989586621679073064"><span class="hs-identifier hs-var">s</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-keyword">case</span><span> </span><span class="annot"><span class="annottext">Char
</span><a href="#local-6989586621679073065"><span class="hs-identifier hs-var">c</span></a></span><span> </span><span class="hs-keyword">of</span><span>
</span><span id="line-334"></span><span>        </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'y'</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">(Integer -&gt; Integer) -&gt; Maybe Integer -&gt; Maybe Integer
forall (f :: * -&gt; *) a b. Functor f =&gt; (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="../../base/src/GHC.Base.html#fmap"><span class="hs-identifier hs-var">fmap</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Integer -&gt; Integer -&gt; Integer
forall a. Num a =&gt; a -&gt; a -&gt; a
</span><a href="../../base/src/GHC.Num.html#%2A"><span class="hs-operator hs-var">(*)</span></a></span><span> </span><span class="annot"><span class="annottext">Integer
</span><span class="hs-number">12</span></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">(Maybe Integer -&gt; Maybe Integer) -&gt; Maybe Integer -&gt; Maybe Integer
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">[Char] -&gt; Maybe Integer
forall a. Read a =&gt; [Char] -&gt; Maybe a
</span><a href="../../base/src/Text.Read.html#readMaybe"><span class="hs-identifier hs-var">readMaybe</span></a></span><span> </span><span class="annot"><span class="annottext">[Char]
</span><a href="#local-6989586621679073064"><span class="hs-identifier hs-var">s</span></a></span><span>
</span><span id="line-335"></span><span>        </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'b'</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">[Char] -&gt; Maybe Integer
forall a. Read a =&gt; [Char] -&gt; Maybe a
</span><a href="../../base/src/Text.Read.html#readMaybe"><span class="hs-identifier hs-var">readMaybe</span></a></span><span> </span><span class="annot"><span class="annottext">[Char]
</span><a href="#local-6989586621679073064"><span class="hs-identifier hs-var">s</span></a></span><span>
</span><span id="line-336"></span><span>        </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'B'</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">[Char] -&gt; Maybe Integer
forall a. Read a =&gt; [Char] -&gt; Maybe a
</span><a href="../../base/src/Text.Read.html#readMaybe"><span class="hs-identifier hs-var">readMaybe</span></a></span><span> </span><span class="annot"><span class="annottext">[Char]
</span><a href="#local-6989586621679073064"><span class="hs-identifier hs-var">s</span></a></span><span>
</span><span id="line-337"></span><span>        </span><span class="annot"><span class="annottext">Char
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Integer -&gt; Maybe Integer
forall (m :: * -&gt; *) a. Monad m =&gt; a -&gt; m a
</span><a href="../../base/src/GHC.Base.html#return"><span class="hs-identifier hs-var">return</span></a></span><span> </span><span class="annot"><span class="annottext">Integer
</span><span class="hs-number">0</span></span><span>
</span><span id="line-338"></span><span>    </span><span class="annot"><span class="annottext">Integer -&gt; Maybe Integer
forall (m :: * -&gt; *) a. Monad m =&gt; a -&gt; m a
</span><a href="../../base/src/GHC.Base.html#return"><span class="hs-identifier hs-var">return</span></a></span><span> </span><span class="annot"><span class="annottext">(Integer -&gt; Maybe Integer) -&gt; Integer -&gt; Maybe Integer
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">[Integer] -&gt; Integer
forall (t :: * -&gt; *) a. (Foldable t, Num a) =&gt; t a -&gt; a
</span><a href="../../base/src/Data.Foldable.html#sum"><span class="hs-identifier hs-var">sum</span></a></span><span> </span><span class="annot"><span class="annottext">[Integer]
</span><a href="#local-6989586621679073066"><span class="hs-identifier hs-var">tt</span></a></span><span>
</span><span id="line-339"></span><span>
</span><span id="line-340"></span><span class="annot"><a href="Data.Time.Format.Parse.Instances.html#buildTimeDays"><span class="hs-identifier hs-type">buildTimeDays</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">[</span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">Char</span></span><span class="hs-special">,</span><span class="annot"><a href="../../base/src/GHC.Base.html#String"><span class="hs-identifier hs-type">String</span></a></span><span class="hs-special">)</span><span class="hs-special">]</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="../../base/src/GHC.Maybe.html#Maybe"><span class="hs-identifier hs-type">Maybe</span></a></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Integer</span></span><span>
</span><span id="line-341"></span><span id="buildTimeDays"><span class="annot"><span class="annottext">buildTimeDays :: [(Char, [Char])] -&gt; Maybe Integer
</span><a href="Data.Time.Format.Parse.Instances.html#buildTimeDays"><span class="hs-identifier hs-var hs-var">buildTimeDays</span></a></span></span><span> </span><span id="local-6989586621679073061"><span class="annot"><span class="annottext">[(Char, [Char])]
</span><a href="#local-6989586621679073061"><span class="hs-identifier hs-var">xs</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">do</span><span>
</span><span id="line-342"></span><span>    </span><span id="local-6989586621679073060"><span class="annot"><span class="annottext">[Integer]
</span><a href="#local-6989586621679073060"><span class="hs-identifier hs-var">tt</span></a></span></span><span> </span><span class="hs-glyph">&lt;-</span><span> </span><span class="annot"><span class="annottext">[(Char, [Char])]
-&gt; ((Char, [Char]) -&gt; Maybe Integer) -&gt; Maybe [Integer]
forall (t :: * -&gt; *) (f :: * -&gt; *) a b.
(Traversable t, Applicative f) =&gt;
t a -&gt; (a -&gt; f b) -&gt; f (t b)
</span><a href="../../base/src/Data.Traversable.html#for"><span class="hs-identifier hs-var">for</span></a></span><span> </span><span class="annot"><span class="annottext">[(Char, [Char])]
</span><a href="#local-6989586621679073061"><span class="hs-identifier hs-var">xs</span></a></span><span> </span><span class="annot"><span class="annottext">(((Char, [Char]) -&gt; Maybe Integer) -&gt; Maybe [Integer])
-&gt; ((Char, [Char]) -&gt; Maybe Integer) -&gt; Maybe [Integer]
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="hs-glyph">\</span><span class="hs-special">(</span><span id="local-6989586621679073059"><span class="annot"><span class="annottext">Char
</span><a href="#local-6989586621679073059"><span class="hs-identifier hs-var">c</span></a></span></span><span class="hs-special">,</span><span id="local-6989586621679073058"><span class="annot"><span class="annottext">[Char]
</span><a href="#local-6989586621679073058"><span class="hs-identifier hs-var">s</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-keyword">case</span><span> </span><span class="annot"><span class="annottext">Char
</span><a href="#local-6989586621679073059"><span class="hs-identifier hs-var">c</span></a></span><span> </span><span class="hs-keyword">of</span><span>
</span><span id="line-343"></span><span>        </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'w'</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">(Integer -&gt; Integer) -&gt; Maybe Integer -&gt; Maybe Integer
forall (f :: * -&gt; *) a b. Functor f =&gt; (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="../../base/src/GHC.Base.html#fmap"><span class="hs-identifier hs-var">fmap</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Integer -&gt; Integer -&gt; Integer
forall a. Num a =&gt; a -&gt; a -&gt; a
</span><a href="../../base/src/GHC.Num.html#%2A"><span class="hs-operator hs-var">(*)</span></a></span><span> </span><span class="annot"><span class="annottext">Integer
</span><span class="hs-number">7</span></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">(Maybe Integer -&gt; Maybe Integer) -&gt; Maybe Integer -&gt; Maybe Integer
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">[Char] -&gt; Maybe Integer
forall a. Read a =&gt; [Char] -&gt; Maybe a
</span><a href="../../base/src/Text.Read.html#readMaybe"><span class="hs-identifier hs-var">readMaybe</span></a></span><span> </span><span class="annot"><span class="annottext">[Char]
</span><a href="#local-6989586621679073058"><span class="hs-identifier hs-var">s</span></a></span><span>
</span><span id="line-344"></span><span>        </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'d'</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">[Char] -&gt; Maybe Integer
forall a. Read a =&gt; [Char] -&gt; Maybe a
</span><a href="../../base/src/Text.Read.html#readMaybe"><span class="hs-identifier hs-var">readMaybe</span></a></span><span> </span><span class="annot"><span class="annottext">[Char]
</span><a href="#local-6989586621679073058"><span class="hs-identifier hs-var">s</span></a></span><span>
</span><span id="line-345"></span><span>        </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'D'</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">[Char] -&gt; Maybe Integer
forall a. Read a =&gt; [Char] -&gt; Maybe a
</span><a href="../../base/src/Text.Read.html#readMaybe"><span class="hs-identifier hs-var">readMaybe</span></a></span><span> </span><span class="annot"><span class="annottext">[Char]
</span><a href="#local-6989586621679073058"><span class="hs-identifier hs-var">s</span></a></span><span>
</span><span id="line-346"></span><span>        </span><span class="annot"><span class="annottext">Char
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Integer -&gt; Maybe Integer
forall (m :: * -&gt; *) a. Monad m =&gt; a -&gt; m a
</span><a href="../../base/src/GHC.Base.html#return"><span class="hs-identifier hs-var">return</span></a></span><span> </span><span class="annot"><span class="annottext">Integer
</span><span class="hs-number">0</span></span><span>
</span><span id="line-347"></span><span>    </span><span class="annot"><span class="annottext">Integer -&gt; Maybe Integer
forall (m :: * -&gt; *) a. Monad m =&gt; a -&gt; m a
</span><a href="../../base/src/GHC.Base.html#return"><span class="hs-identifier hs-var">return</span></a></span><span> </span><span class="annot"><span class="annottext">(Integer -&gt; Maybe Integer) -&gt; Integer -&gt; Maybe Integer
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">[Integer] -&gt; Integer
forall (t :: * -&gt; *) a. (Foldable t, Num a) =&gt; t a -&gt; a
</span><a href="../../base/src/Data.Foldable.html#sum"><span class="hs-identifier hs-var">sum</span></a></span><span> </span><span class="annot"><span class="annottext">[Integer]
</span><a href="#local-6989586621679073060"><span class="hs-identifier hs-var">tt</span></a></span><span>
</span><span id="line-348"></span><span>
</span><span id="line-349"></span><span class="annot"><a href="Data.Time.Format.Parse.Instances.html#buildTimeSeconds"><span class="hs-identifier hs-type">buildTimeSeconds</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">[</span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">Char</span></span><span class="hs-special">,</span><span class="annot"><a href="../../base/src/GHC.Base.html#String"><span class="hs-identifier hs-type">String</span></a></span><span class="hs-special">)</span><span class="hs-special">]</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="../../base/src/GHC.Maybe.html#Maybe"><span class="hs-identifier hs-type">Maybe</span></a></span><span> </span><span class="annot"><a href="../../base/src/Data.Fixed.html#Pico"><span class="hs-identifier hs-type">Pico</span></a></span><span>
</span><span id="line-350"></span><span id="buildTimeSeconds"><span class="annot"><span class="annottext">buildTimeSeconds :: [(Char, [Char])] -&gt; Maybe Pico
</span><a href="Data.Time.Format.Parse.Instances.html#buildTimeSeconds"><span class="hs-identifier hs-var hs-var">buildTimeSeconds</span></a></span></span><span> </span><span id="local-6989586621679073056"><span class="annot"><span class="annottext">[(Char, [Char])]
</span><a href="#local-6989586621679073056"><span class="hs-identifier hs-var">xs</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">do</span><span>
</span><span id="line-351"></span><span>    </span><span id="local-6989586621679073055"><span class="annot"><span class="annottext">[Pico]
</span><a href="#local-6989586621679073055"><span class="hs-identifier hs-var">tt</span></a></span></span><span> </span><span class="hs-glyph">&lt;-</span><span> </span><span class="annot"><span class="annottext">[(Char, [Char])] -&gt; ((Char, [Char]) -&gt; Maybe Pico) -&gt; Maybe [Pico]
forall (t :: * -&gt; *) (f :: * -&gt; *) a b.
(Traversable t, Applicative f) =&gt;
t a -&gt; (a -&gt; f b) -&gt; f (t b)
</span><a href="../../base/src/Data.Traversable.html#for"><span class="hs-identifier hs-var">for</span></a></span><span> </span><span class="annot"><span class="annottext">[(Char, [Char])]
</span><a href="#local-6989586621679073056"><span class="hs-identifier hs-var">xs</span></a></span><span> </span><span class="annot"><span class="annottext">(((Char, [Char]) -&gt; Maybe Pico) -&gt; Maybe [Pico])
-&gt; ((Char, [Char]) -&gt; Maybe Pico) -&gt; Maybe [Pico]
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="hs-glyph">\</span><span class="hs-special">(</span><span id="local-6989586621679073054"><span class="annot"><span class="annottext">Char
</span><a href="#local-6989586621679073054"><span class="hs-identifier hs-var">c</span></a></span></span><span class="hs-special">,</span><span id="local-6989586621679073053"><span class="annot"><span class="annottext">[Char]
</span><a href="#local-6989586621679073053"><span class="hs-identifier hs-var">s</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-keyword">let</span><span>
</span><span id="line-352"></span><span>        </span><span class="annot"><a href="#local-6989586621679073052"><span class="hs-identifier hs-type">readInt</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Integer</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="../../base/src/GHC.Maybe.html#Maybe"><span class="hs-identifier hs-type">Maybe</span></a></span><span> </span><span class="annot"><a href="../../base/src/Data.Fixed.html#Pico"><span class="hs-identifier hs-type">Pico</span></a></span><span>
</span><span id="line-353"></span><span>        </span><span id="local-6989586621679073052"><span class="annot"><span class="annottext">readInt :: Integer -&gt; Maybe Pico
</span><a href="#local-6989586621679073052"><span class="hs-identifier hs-var hs-var">readInt</span></a></span></span><span> </span><span id="local-6989586621679073051"><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621679073051"><span class="hs-identifier hs-var">t</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">do</span><span>
</span><span id="line-354"></span><span>            </span><span id="local-6989586621679073050"><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621679073050"><span class="hs-identifier hs-var">i</span></a></span></span><span> </span><span class="hs-glyph">&lt;-</span><span> </span><span class="annot"><span class="annottext">[Char] -&gt; Maybe Integer
forall a. Read a =&gt; [Char] -&gt; Maybe a
</span><a href="../../base/src/Text.Read.html#readMaybe"><span class="hs-identifier hs-var">readMaybe</span></a></span><span> </span><span class="annot"><span class="annottext">[Char]
</span><a href="#local-6989586621679073053"><span class="hs-identifier hs-var">s</span></a></span><span>
</span><span id="line-355"></span><span>            </span><span class="annot"><span class="annottext">Pico -&gt; Maybe Pico
forall (m :: * -&gt; *) a. Monad m =&gt; a -&gt; m a
</span><a href="../../base/src/GHC.Base.html#return"><span class="hs-identifier hs-var">return</span></a></span><span> </span><span class="annot"><span class="annottext">(Pico -&gt; Maybe Pico) -&gt; Pico -&gt; Maybe Pico
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">Integer -&gt; Pico
forall a. Num a =&gt; Integer -&gt; a
</span><a href="../../base/src/GHC.Num.html#fromInteger"><span class="hs-identifier hs-var">fromInteger</span></a></span><span> </span><span class="annot"><span class="annottext">(Integer -&gt; Pico) -&gt; Integer -&gt; Pico
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621679073050"><span class="hs-identifier hs-var">i</span></a></span><span> </span><span class="annot"><span class="annottext">Integer -&gt; Integer -&gt; Integer
forall a. Num a =&gt; a -&gt; a -&gt; a
</span><a href="../../base/src/GHC.Num.html#%2A"><span class="hs-operator hs-var">*</span></a></span><span> </span><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621679073051"><span class="hs-identifier hs-var">t</span></a></span><span>
</span><span id="line-356"></span><span>        </span><span class="hs-keyword">in</span><span> </span><span class="hs-keyword">case</span><span> </span><span class="annot"><span class="annottext">Char
</span><a href="#local-6989586621679073054"><span class="hs-identifier hs-var">c</span></a></span><span> </span><span class="hs-keyword">of</span><span>
</span><span id="line-357"></span><span>            </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'h'</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Integer -&gt; Maybe Pico
</span><a href="#local-6989586621679073052"><span class="hs-identifier hs-var">readInt</span></a></span><span> </span><span class="annot"><span class="annottext">Integer
</span><span class="hs-number">3600</span></span><span>
</span><span id="line-358"></span><span>            </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'H'</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Integer -&gt; Maybe Pico
</span><a href="#local-6989586621679073052"><span class="hs-identifier hs-var">readInt</span></a></span><span> </span><span class="annot"><span class="annottext">Integer
</span><span class="hs-number">3600</span></span><span>
</span><span id="line-359"></span><span>            </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'m'</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Integer -&gt; Maybe Pico
</span><a href="#local-6989586621679073052"><span class="hs-identifier hs-var">readInt</span></a></span><span> </span><span class="annot"><span class="annottext">Integer
</span><span class="hs-number">60</span></span><span>
</span><span id="line-360"></span><span>            </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'M'</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Integer -&gt; Maybe Pico
</span><a href="#local-6989586621679073052"><span class="hs-identifier hs-var">readInt</span></a></span><span> </span><span class="annot"><span class="annottext">Integer
</span><span class="hs-number">60</span></span><span>
</span><span id="line-361"></span><span>            </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'s'</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">[Char] -&gt; Maybe Pico
forall a. Read a =&gt; [Char] -&gt; Maybe a
</span><a href="../../base/src/Text.Read.html#readMaybe"><span class="hs-identifier hs-var">readMaybe</span></a></span><span> </span><span class="annot"><span class="annottext">[Char]
</span><a href="#local-6989586621679073053"><span class="hs-identifier hs-var">s</span></a></span><span>
</span><span id="line-362"></span><span>            </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'S'</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">[Char] -&gt; Maybe Pico
forall a. Read a =&gt; [Char] -&gt; Maybe a
</span><a href="../../base/src/Text.Read.html#readMaybe"><span class="hs-identifier hs-var">readMaybe</span></a></span><span> </span><span class="annot"><span class="annottext">[Char]
</span><a href="#local-6989586621679073053"><span class="hs-identifier hs-var">s</span></a></span><span>
</span><span id="line-363"></span><span>            </span><span class="annot"><span class="annottext">Char
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Pico -&gt; Maybe Pico
forall (m :: * -&gt; *) a. Monad m =&gt; a -&gt; m a
</span><a href="../../base/src/GHC.Base.html#return"><span class="hs-identifier hs-var">return</span></a></span><span> </span><span class="annot"><span class="annottext">Pico
</span><span class="hs-number">0</span></span><span>
</span><span id="line-364"></span><span>    </span><span class="annot"><span class="annottext">Pico -&gt; Maybe Pico
forall (m :: * -&gt; *) a. Monad m =&gt; a -&gt; m a
</span><a href="../../base/src/GHC.Base.html#return"><span class="hs-identifier hs-var">return</span></a></span><span> </span><span class="annot"><span class="annottext">(Pico -&gt; Maybe Pico) -&gt; Pico -&gt; Maybe Pico
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">[Pico] -&gt; Pico
forall (t :: * -&gt; *) a. (Foldable t, Num a) =&gt; t a -&gt; a
</span><a href="../../base/src/Data.Foldable.html#sum"><span class="hs-identifier hs-var">sum</span></a></span><span> </span><span class="annot"><span class="annottext">[Pico]
</span><a href="#local-6989586621679073055"><span class="hs-identifier hs-var">tt</span></a></span><span>
</span><span id="line-365"></span><span>
</span><span id="line-366"></span><span class="hs-keyword">instance</span><span> </span><span id="local-6989586621679073048"><span class="annot"><a href="Data.Time.Format.Parse.Class.html#ParseTime"><span class="hs-identifier hs-type">ParseTime</span></a></span><span> </span><span class="annot"><a href="Data.Time.Clock.Internal.NominalDiffTime.html#NominalDiffTime"><span class="hs-identifier hs-type">NominalDiffTime</span></a></span></span><span> </span><span class="hs-keyword">where</span><span>
</span><span id="line-367"></span><span>    </span><span id="local-6989586621679073045"><span class="annot"><span class="annottext">parseTimeSpecifier :: forall (proxy :: * -&gt; *).
proxy NominalDiffTime
-&gt; TimeLocale -&gt; Maybe ParseNumericPadding -&gt; Char -&gt; ReadP [Char]
</span><a href="#local-6989586621679073045"><span class="hs-identifier hs-var hs-var hs-var hs-var">parseTimeSpecifier</span></a></span></span><span> </span><span class="annot"><span class="annottext">proxy NominalDiffTime
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">TimeLocale -&gt; Maybe ParseNumericPadding -&gt; Char -&gt; ReadP [Char]
</span><a href="Data.Time.Format.Parse.Class.html#durationParseTimeSpecifier"><span class="hs-identifier hs-var">durationParseTimeSpecifier</span></a></span><span>
</span><span id="line-368"></span><span>    </span><span id="local-6989586621679073034"><span class="annot"><span class="annottext">buildTime :: TimeLocale -&gt; [(Char, [Char])] -&gt; Maybe NominalDiffTime
</span><a href="#local-6989586621679073034"><span class="hs-identifier hs-var hs-var hs-var hs-var">buildTime</span></a></span></span><span> </span><span class="annot"><span class="annottext">TimeLocale
</span><span class="hs-identifier">_</span></span><span> </span><span id="local-6989586621679073033"><span class="annot"><span class="annottext">[(Char, [Char])]
</span><a href="#local-6989586621679073033"><span class="hs-identifier hs-var">xs</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">do</span><span>
</span><span id="line-369"></span><span>        </span><span id="local-6989586621679073032"><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621679073032"><span class="hs-identifier hs-var">dd</span></a></span></span><span> </span><span class="hs-glyph">&lt;-</span><span> </span><span class="annot"><span class="annottext">[(Char, [Char])] -&gt; Maybe Integer
</span><a href="Data.Time.Format.Parse.Instances.html#buildTimeDays"><span class="hs-identifier hs-var">buildTimeDays</span></a></span><span> </span><span class="annot"><span class="annottext">[(Char, [Char])]
</span><a href="#local-6989586621679073033"><span class="hs-identifier hs-var">xs</span></a></span><span>
</span><span id="line-370"></span><span>        </span><span id="local-6989586621679073031"><span class="annot"><span class="annottext">Pico
</span><a href="#local-6989586621679073031"><span class="hs-identifier hs-var">tt</span></a></span></span><span> </span><span class="hs-glyph">&lt;-</span><span> </span><span class="annot"><span class="annottext">[(Char, [Char])] -&gt; Maybe Pico
</span><a href="Data.Time.Format.Parse.Instances.html#buildTimeSeconds"><span class="hs-identifier hs-var">buildTimeSeconds</span></a></span><span> </span><span class="annot"><span class="annottext">[(Char, [Char])]
</span><a href="#local-6989586621679073033"><span class="hs-identifier hs-var">xs</span></a></span><span>
</span><span id="line-371"></span><span>        </span><span class="annot"><span class="annottext">NominalDiffTime -&gt; Maybe NominalDiffTime
forall (m :: * -&gt; *) a. Monad m =&gt; a -&gt; m a
</span><a href="../../base/src/GHC.Base.html#return"><span class="hs-identifier hs-var">return</span></a></span><span> </span><span class="annot"><span class="annottext">(NominalDiffTime -&gt; Maybe NominalDiffTime)
-&gt; NominalDiffTime -&gt; Maybe NominalDiffTime
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Integer -&gt; NominalDiffTime
forall a. Num a =&gt; Integer -&gt; a
</span><a href="../../base/src/GHC.Num.html#fromInteger"><span class="hs-identifier hs-var">fromInteger</span></a></span><span> </span><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621679073032"><span class="hs-identifier hs-var">dd</span></a></span><span> </span><span class="annot"><span class="annottext">NominalDiffTime -&gt; NominalDiffTime -&gt; NominalDiffTime
forall a. Num a =&gt; a -&gt; a -&gt; a
</span><a href="../../base/src/GHC.Num.html#%2A"><span class="hs-operator hs-var">*</span></a></span><span> </span><span class="annot"><span class="annottext">NominalDiffTime
</span><span class="hs-number">86400</span></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">NominalDiffTime -&gt; NominalDiffTime -&gt; NominalDiffTime
forall a. Num a =&gt; a -&gt; a -&gt; a
</span><a href="../../base/src/GHC.Num.html#%2B"><span class="hs-operator hs-var">+</span></a></span><span> </span><span class="annot"><span class="annottext">Pico -&gt; NominalDiffTime
forall a b. (Real a, Fractional b) =&gt; a -&gt; b
</span><a href="../../base/src/GHC.Real.html#realToFrac"><span class="hs-identifier hs-var">realToFrac</span></a></span><span> </span><span class="annot"><span class="annottext">Pico
</span><a href="#local-6989586621679073031"><span class="hs-identifier hs-var">tt</span></a></span><span>
</span><span id="line-372"></span><span>
</span><span id="line-373"></span><span class="hs-keyword">instance</span><span> </span><span id="local-6989586621679073029"><span class="annot"><a href="Data.Time.Format.Parse.Class.html#ParseTime"><span class="hs-identifier hs-type">ParseTime</span></a></span><span> </span><span class="annot"><a href="Data.Time.Clock.Internal.DiffTime.html#DiffTime"><span class="hs-identifier hs-type">DiffTime</span></a></span></span><span> </span><span class="hs-keyword">where</span><span>
</span><span id="line-374"></span><span>    </span><span id="local-6989586621679073026"><span class="annot"><span class="annottext">parseTimeSpecifier :: forall (proxy :: * -&gt; *).
proxy DiffTime
-&gt; TimeLocale -&gt; Maybe ParseNumericPadding -&gt; Char -&gt; ReadP [Char]
</span><a href="#local-6989586621679073026"><span class="hs-identifier hs-var hs-var hs-var hs-var">parseTimeSpecifier</span></a></span></span><span> </span><span class="annot"><span class="annottext">proxy DiffTime
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">TimeLocale -&gt; Maybe ParseNumericPadding -&gt; Char -&gt; ReadP [Char]
</span><a href="Data.Time.Format.Parse.Class.html#durationParseTimeSpecifier"><span class="hs-identifier hs-var">durationParseTimeSpecifier</span></a></span><span>
</span><span id="line-375"></span><span>    </span><span id="local-6989586621679073014"><span class="annot"><span class="annottext">buildTime :: TimeLocale -&gt; [(Char, [Char])] -&gt; Maybe DiffTime
</span><a href="#local-6989586621679073014"><span class="hs-identifier hs-var hs-var hs-var hs-var">buildTime</span></a></span></span><span> </span><span class="annot"><span class="annottext">TimeLocale
</span><span class="hs-identifier">_</span></span><span> </span><span id="local-6989586621679073013"><span class="annot"><span class="annottext">[(Char, [Char])]
</span><a href="#local-6989586621679073013"><span class="hs-identifier hs-var">xs</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">do</span><span>
</span><span id="line-376"></span><span>        </span><span id="local-6989586621679073012"><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621679073012"><span class="hs-identifier hs-var">dd</span></a></span></span><span> </span><span class="hs-glyph">&lt;-</span><span> </span><span class="annot"><span class="annottext">[(Char, [Char])] -&gt; Maybe Integer
</span><a href="Data.Time.Format.Parse.Instances.html#buildTimeDays"><span class="hs-identifier hs-var">buildTimeDays</span></a></span><span> </span><span class="annot"><span class="annottext">[(Char, [Char])]
</span><a href="#local-6989586621679073013"><span class="hs-identifier hs-var">xs</span></a></span><span>
</span><span id="line-377"></span><span>        </span><span id="local-6989586621679073011"><span class="annot"><span class="annottext">Pico
</span><a href="#local-6989586621679073011"><span class="hs-identifier hs-var">tt</span></a></span></span><span> </span><span class="hs-glyph">&lt;-</span><span> </span><span class="annot"><span class="annottext">[(Char, [Char])] -&gt; Maybe Pico
</span><a href="Data.Time.Format.Parse.Instances.html#buildTimeSeconds"><span class="hs-identifier hs-var">buildTimeSeconds</span></a></span><span> </span><span class="annot"><span class="annottext">[(Char, [Char])]
</span><a href="#local-6989586621679073013"><span class="hs-identifier hs-var">xs</span></a></span><span>
</span><span id="line-378"></span><span>        </span><span class="annot"><span class="annottext">DiffTime -&gt; Maybe DiffTime
forall (m :: * -&gt; *) a. Monad m =&gt; a -&gt; m a
</span><a href="../../base/src/GHC.Base.html#return"><span class="hs-identifier hs-var">return</span></a></span><span> </span><span class="annot"><span class="annottext">(DiffTime -&gt; Maybe DiffTime) -&gt; DiffTime -&gt; Maybe DiffTime
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Integer -&gt; DiffTime
forall a. Num a =&gt; Integer -&gt; a
</span><a href="../../base/src/GHC.Num.html#fromInteger"><span class="hs-identifier hs-var">fromInteger</span></a></span><span> </span><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621679073012"><span class="hs-identifier hs-var">dd</span></a></span><span> </span><span class="annot"><span class="annottext">DiffTime -&gt; DiffTime -&gt; DiffTime
forall a. Num a =&gt; a -&gt; a -&gt; a
</span><a href="../../base/src/GHC.Num.html#%2A"><span class="hs-operator hs-var">*</span></a></span><span> </span><span class="annot"><span class="annottext">DiffTime
</span><span class="hs-number">86400</span></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">DiffTime -&gt; DiffTime -&gt; DiffTime
forall a. Num a =&gt; a -&gt; a -&gt; a
</span><a href="../../base/src/GHC.Num.html#%2B"><span class="hs-operator hs-var">+</span></a></span><span> </span><span class="annot"><span class="annottext">Pico -&gt; DiffTime
forall a b. (Real a, Fractional b) =&gt; a -&gt; b
</span><a href="../../base/src/GHC.Real.html#realToFrac"><span class="hs-identifier hs-var">realToFrac</span></a></span><span> </span><span class="annot"><span class="annottext">Pico
</span><a href="#local-6989586621679073011"><span class="hs-identifier hs-var">tt</span></a></span><span>
</span><span id="line-379"></span><span>
</span><span id="line-380"></span><span class="hs-keyword">instance</span><span> </span><span id="local-6989586621679073009"><span class="annot"><a href="Data.Time.Format.Parse.Class.html#ParseTime"><span class="hs-identifier hs-type">ParseTime</span></a></span><span> </span><span class="annot"><a href="Data.Time.Calendar.CalendarDiffDays.html#CalendarDiffDays"><span class="hs-identifier hs-type">CalendarDiffDays</span></a></span></span><span> </span><span class="hs-keyword">where</span><span>
</span><span id="line-381"></span><span>    </span><span id="local-6989586621679073006"><span class="annot"><span class="annottext">parseTimeSpecifier :: forall (proxy :: * -&gt; *).
proxy CalendarDiffDays
-&gt; TimeLocale -&gt; Maybe ParseNumericPadding -&gt; Char -&gt; ReadP [Char]
</span><a href="#local-6989586621679073006"><span class="hs-identifier hs-var hs-var hs-var hs-var">parseTimeSpecifier</span></a></span></span><span> </span><span class="annot"><span class="annottext">proxy CalendarDiffDays
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">TimeLocale -&gt; Maybe ParseNumericPadding -&gt; Char -&gt; ReadP [Char]
</span><a href="Data.Time.Format.Parse.Class.html#durationParseTimeSpecifier"><span class="hs-identifier hs-var">durationParseTimeSpecifier</span></a></span><span>
</span><span id="line-382"></span><span>    </span><span id="local-6989586621679073002"><span class="annot"><span class="annottext">buildTime :: TimeLocale -&gt; [(Char, [Char])] -&gt; Maybe CalendarDiffDays
</span><a href="#local-6989586621679073002"><span class="hs-identifier hs-var hs-var hs-var hs-var">buildTime</span></a></span></span><span> </span><span class="annot"><span class="annottext">TimeLocale
</span><span class="hs-identifier">_</span></span><span> </span><span id="local-6989586621679073001"><span class="annot"><span class="annottext">[(Char, [Char])]
</span><a href="#local-6989586621679073001"><span class="hs-identifier hs-var">xs</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">do</span><span>
</span><span id="line-383"></span><span>        </span><span id="local-6989586621679073000"><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621679073000"><span class="hs-identifier hs-var">mm</span></a></span></span><span> </span><span class="hs-glyph">&lt;-</span><span> </span><span class="annot"><span class="annottext">[(Char, [Char])] -&gt; Maybe Integer
</span><a href="Data.Time.Format.Parse.Instances.html#buildTimeMonths"><span class="hs-identifier hs-var">buildTimeMonths</span></a></span><span> </span><span class="annot"><span class="annottext">[(Char, [Char])]
</span><a href="#local-6989586621679073001"><span class="hs-identifier hs-var">xs</span></a></span><span>
</span><span id="line-384"></span><span>        </span><span id="local-6989586621679072999"><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621679072999"><span class="hs-identifier hs-var">dd</span></a></span></span><span> </span><span class="hs-glyph">&lt;-</span><span> </span><span class="annot"><span class="annottext">[(Char, [Char])] -&gt; Maybe Integer
</span><a href="Data.Time.Format.Parse.Instances.html#buildTimeDays"><span class="hs-identifier hs-var">buildTimeDays</span></a></span><span> </span><span class="annot"><span class="annottext">[(Char, [Char])]
</span><a href="#local-6989586621679073001"><span class="hs-identifier hs-var">xs</span></a></span><span>
</span><span id="line-385"></span><span>        </span><span class="annot"><span class="annottext">CalendarDiffDays -&gt; Maybe CalendarDiffDays
forall (m :: * -&gt; *) a. Monad m =&gt; a -&gt; m a
</span><a href="../../base/src/GHC.Base.html#return"><span class="hs-identifier hs-var">return</span></a></span><span> </span><span class="annot"><span class="annottext">(CalendarDiffDays -&gt; Maybe CalendarDiffDays)
-&gt; CalendarDiffDays -&gt; Maybe CalendarDiffDays
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">Integer -&gt; Integer -&gt; CalendarDiffDays
</span><a href="Data.Time.Calendar.CalendarDiffDays.html#CalendarDiffDays"><span class="hs-identifier hs-var">CalendarDiffDays</span></a></span><span> </span><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621679073000"><span class="hs-identifier hs-var">mm</span></a></span><span> </span><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621679072999"><span class="hs-identifier hs-var">dd</span></a></span><span>
</span><span id="line-386"></span><span>
</span><span id="line-387"></span><span class="hs-keyword">instance</span><span> </span><span id="local-6989586621679072996"><span class="annot"><a href="Data.Time.Format.Parse.Class.html#ParseTime"><span class="hs-identifier hs-type">ParseTime</span></a></span><span> </span><span class="annot"><a href="Data.Time.LocalTime.Internal.CalendarDiffTime.html#CalendarDiffTime"><span class="hs-identifier hs-type">CalendarDiffTime</span></a></span></span><span> </span><span class="hs-keyword">where</span><span>
</span><span id="line-388"></span><span>    </span><span id="local-6989586621679072993"><span class="annot"><span class="annottext">parseTimeSpecifier :: forall (proxy :: * -&gt; *).
proxy CalendarDiffTime
-&gt; TimeLocale -&gt; Maybe ParseNumericPadding -&gt; Char -&gt; ReadP [Char]
</span><a href="#local-6989586621679072993"><span class="hs-identifier hs-var hs-var hs-var hs-var">parseTimeSpecifier</span></a></span></span><span> </span><span class="annot"><span class="annottext">proxy CalendarDiffTime
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">TimeLocale -&gt; Maybe ParseNumericPadding -&gt; Char -&gt; ReadP [Char]
</span><a href="Data.Time.Format.Parse.Class.html#durationParseTimeSpecifier"><span class="hs-identifier hs-var">durationParseTimeSpecifier</span></a></span><span>
</span><span id="line-389"></span><span>    </span><span id="local-6989586621679072988"><span class="annot"><span class="annottext">buildTime :: TimeLocale -&gt; [(Char, [Char])] -&gt; Maybe CalendarDiffTime
</span><a href="#local-6989586621679072988"><span class="hs-identifier hs-var hs-var hs-var hs-var">buildTime</span></a></span></span><span> </span><span id="local-6989586621679072987"><span class="annot"><span class="annottext">TimeLocale
</span><a href="#local-6989586621679072987"><span class="hs-identifier hs-var">locale</span></a></span></span><span> </span><span id="local-6989586621679072986"><span class="annot"><span class="annottext">[(Char, [Char])]
</span><a href="#local-6989586621679072986"><span class="hs-identifier hs-var">xs</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">do</span><span>
</span><span id="line-390"></span><span>        </span><span id="local-6989586621679072985"><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621679072985"><span class="hs-identifier hs-var">mm</span></a></span></span><span> </span><span class="hs-glyph">&lt;-</span><span> </span><span class="annot"><span class="annottext">[(Char, [Char])] -&gt; Maybe Integer
</span><a href="Data.Time.Format.Parse.Instances.html#buildTimeMonths"><span class="hs-identifier hs-var">buildTimeMonths</span></a></span><span> </span><span class="annot"><span class="annottext">[(Char, [Char])]
</span><a href="#local-6989586621679072986"><span class="hs-identifier hs-var">xs</span></a></span><span>
</span><span id="line-391"></span><span>        </span><span id="local-6989586621679072984"><span class="annot"><span class="annottext">NominalDiffTime
</span><a href="#local-6989586621679072984"><span class="hs-identifier hs-var">tt</span></a></span></span><span> </span><span class="hs-glyph">&lt;-</span><span> </span><span class="annot"><span class="annottext">TimeLocale -&gt; [(Char, [Char])] -&gt; Maybe NominalDiffTime
forall t. ParseTime t =&gt; TimeLocale -&gt; [(Char, [Char])] -&gt; Maybe t
</span><a href="Data.Time.Format.Parse.Class.html#buildTime"><span class="hs-identifier hs-var">buildTime</span></a></span><span> </span><span class="annot"><span class="annottext">TimeLocale
</span><a href="#local-6989586621679072987"><span class="hs-identifier hs-var">locale</span></a></span><span> </span><span class="annot"><span class="annottext">[(Char, [Char])]
</span><a href="#local-6989586621679072986"><span class="hs-identifier hs-var">xs</span></a></span><span>
</span><span id="line-392"></span><span>        </span><span class="annot"><span class="annottext">CalendarDiffTime -&gt; Maybe CalendarDiffTime
forall (m :: * -&gt; *) a. Monad m =&gt; a -&gt; m a
</span><a href="../../base/src/GHC.Base.html#return"><span class="hs-identifier hs-var">return</span></a></span><span> </span><span class="annot"><span class="annottext">(CalendarDiffTime -&gt; Maybe CalendarDiffTime)
-&gt; CalendarDiffTime -&gt; Maybe CalendarDiffTime
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">Integer -&gt; NominalDiffTime -&gt; CalendarDiffTime
</span><a href="Data.Time.LocalTime.Internal.CalendarDiffTime.html#CalendarDiffTime"><span class="hs-identifier hs-var">CalendarDiffTime</span></a></span><span> </span><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621679072985"><span class="hs-identifier hs-var">mm</span></a></span><span> </span><span class="annot"><span class="annottext">NominalDiffTime
</span><a href="#local-6989586621679072984"><span class="hs-identifier hs-var">tt</span></a></span><span>
</span><span id="line-393"></span></pre></body></html>